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

Вниз

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

← →
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)+" раз.");

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.43 MB
Время: 0.005 c