Разбиение строки на две части

[prem1era]

У меня есть строковая переменная в которой записано ' л.1, 11, 20, 3, 14, 15. Хорошо' или ' л. 22, 49, 50, 60, 61, 62'. Мне надо разделить это строку таким образом что бы в одной было 'л.1, 11, 20, 3, 14, 15' или 'л. 22, 49, 50, 60, 61, 62' а в другой 'Хорошо' или нечего не должно быть.

[s-andriano]

Ищете вхождение "Хорошо" в строку.
Если есть - удаляете и создаете вторую строку со словом "Хорошо".
Если нет - ничего не делаете с первой строкой и создаете вторую пустую.

[prem1era]

'Хорошую' я привел как пример а там может быть разные слова а может и не быть а быть просто 'л.12,13' или 'л.1'

   
p:integer;
cl,cname:string;
 p := Length(cname) - Pos(' ', AnsiReverseString(cname))+ 1;
                cl := Copy(cname, 1, p); 
               cname := Copy(cname, p + 1, Length(cname) - p + 1);

Как сделать что бы он искал только первый пробел а не все встретившиеся

[s-andriano]

Сообщение от prem1era

'Хорошую' я привел как пример а там может быть разные слова а может и не быть а быть просто 'л.12,13' или 'л.1'

Это уже другая задача, условие которой противоречит исходному.
Если Вам нужно решение общей задачи, не следует просить решение частной.

Сообщение от prem1era

   
p:integer;
cl,cname:string;
 p := Length(cname) - Pos(' ', AnsiReverseString(cname))+ 1;
                cl := Copy(cname, 1, p); 
               cname := Copy(cname, p + 1, Length(cname) - p + 1);

Как сделать что бы он искал только первый пробел а не все встретившиеся

pos и так ищет только первое вхождение.
Попытайтесь повнимательней относиться к тому, как Вы формулируете вопросы.

[Utkin]

Искать вторую точку, не?

[s-andriano]

Сообщение от Utkin

Искать вторую точку, не?

Или слово/фразу, начинающуюся с заглавной буквы?
Или первую точку после цифры?
Или первую букву после цифры?
А может, чисел ровно 6?

prem1era, теперь Вы видите, что по тому, что Вы написали, восстановить, что Вам нужно, совершенно невозможно?
Можно только гадать.

[Stilet]

Полагаю автора устроит такое:

s:='л.1, 11, 20, 3, 14, 15. Хорошо';
i:=Length(s);
while (i>0)and(not (s[i] in ['0'..'9'])) do dec(i);
Первая часть:=copy(s,i,Length(s));
Вторая часть:=copy(s,1,i);

[prem1era]

Сообщение от Stilet

Полагаю автора устроит такое:

s:='л.1, 11, 20, 3, 14, 15. Хорошо';
i:=Length(s);
while (i>0)and(not (s[i] in ['0'..'9'])) do dec(i);
Первая часть:=copy(s,i,Length(s));
Вторая часть:=copy(s,1,i);

Слушай работает, но к слову почемуто он еще добавляет последнею цифру? т.е у меня получается '5Хорошо' и 'л.1, 11, 20, 3, 14, 15'
Как избавится от этой 5?

[Stilet]

Первая часть:=copy(s,i+1,Length(s));

Ты бы... это... башкой то подумал. Башка то тебе для чего дана?