Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
ВнизПоиск по Memo Найти похожие ветки
← →
KaPaT (2002-03-26 01:16) [4]Вот полный код как бы я делал:
var
i,n : Integer;
begin
For i:=0 to Memo1.Lines.Count-1 do
begin
n:=Pos("Word",Memo1.Lines[i]);
If n<>0 then ShowMessage("Строка:"+IntTosTr(i+1)+"Позиция"+IntToStr(n))
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c