В интернетах нагуглил скрипт, который ищет в Memo2 слово, введенное в Edit1, но есть проблема, если, например, у меня в мемо написано ТЕКСТ1 ТЕКСТ2, так вот скрипт упрется в первое слово и дальше не хочет искать, подскажите, как сделать, чтоб при повторном нажатии продолжало искать дальше, то есть чтоб было как в нормальных текстовиках: жмем F3 и нам показывает следующий вариант:
var
Find: string;
I: integer;
begin
Find:=AnsiLowerCase(Edit1.Text);
for
i:=0 to
Memo2.Lines.count-1 do
if
pos(AnsiLowerCase (Find),AnsiLowerCase(Memo2.Lines.Text))<>0 then
begin
Memo2.setfocus();
Memo2.SelStart:=pos(AnsiLowerCase(find),AnsiLowerCase(memo2.Lines.Text))-1;
Memo2.SelLength:=Length(find);
end;
delphi.hlp
в котором это подробно расписано.