Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

Как в label2 вставить текст с Label1 до слова ‘Конец’, а в Label3 после этого слова? 


Man-In-Red   (2002-03-06 21:51) [0]

На форме лежат Label1, Label2, Label3!
В Label1 написано – ‘Первая строка, Конец Вторая строка’;
Как в label2 вставить текст с Label1 до слова ‘Конец’, а в Label3 после этого слова?
Заранее благодарен!



Song   (2002-03-06 21:59) [1]

With TStringList.Create
try
Text:="Первая строка, Конец Вторая строка";
Text:=StringReplace(Text,"Конец",#13#10,[rfReplaceAll]);
Label1.Caption:=Strings[0];
Label3.Caption:=Strings[1];
finally
Free;
end;

P.S. Можно ещё через Pos, но так, я считаю, красивей
ещё нужно убрать пробелы после слова "конец" перед "вторая строка", иначе в Label3 эти пробелы учтутся.



Man-In-Red   (2002-03-06 22:17) [2]

Спасибо, работает!



Man-In-Red   (2002-03-06 22:33) [3]

Упс, забыл, а как перед этим посмотреть – вообще есть ли в строке слово ‘Конец’, если есть, то все так же делаем, а если нет, то в Label2 копируем эту строку из Label1?
И еще в переменную типа integer, надо поместить количество слов ‘Конец’!
Заранее благдарен!



Song   (2002-03-06 23:00) [4]

IF Pos("Конец",S)>0 then
With
...
finally
Free;
end else Label2.Caption:=Label1.Caption;


P.S. Вам надо серьёзно позаниаматься Дельфи.



Song   (2002-03-06 23:03) [5]

t:=0;
With (Pos("Конец",S)>0) Do
Begin
Inc(t);
Delete(S,Pos("Конец",S),5);
End;
ShowMessage("Слово "Конец" найдено "+IntToStr(t)+" раз.");



Song   (2002-03-07 08:13) [6]

тьфу with на while замени :-))))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
3-66763           Лёша                  2002-02-22 03:58  2002.03.21  
Динамический массив в Interbase.


3-66789           ray_wagner            2002-02-22 23:04  2002.03.21  
Как инсталлировать BDE если нет ISExpress?


1-66849           НЕО                   2002-03-05 15:08  2002.03.21  
Типа консольное приложение


14-67011          oblom                 2002-02-05 14:51  2002.03.21  
Максимальное ускорение запуска windows


3-66738           sgs                   2002-02-19 17:55  2002.03.21  
Помогите с многозвенкой