Сообщество Чайников

Вопрос

Как делать поиск, замену и переход по строкам в TMemo?

Ответ

Поиск в ТMemo:

procedure Find(s: string);
var i: integer;
begin
for i:=0 to Memo1.Count-1 do
if pos(s,Memo1.Strings[i])>0 then
begin
Memo.Cursor.SetSelText(i, pos(s,Memo1.Strings[i]), i,
pos(s,Memo1.Strings[i])+length(s));
exit
end;
end;

Замена:
Так же, только удаляй процедурой DelSelBuff

Переход к строке x:

Memo1.Cursor.SetPosition(x,1);

Белозеров Сергей