Witam otóż wykombinowałem coś takiego ale mi nic mi nie znajduje pomożecie ?
procedure TForm1.Znajd1Click(Sender: TObject);
begin
FindDialog1.Execute;
end;
end.
procedure TForm1.FindDialog1(Sender: TObject);
var
nStart, nSelLen : integer;
begin
nSelLen := Length(FindDialog1.FindText);
nStart := Pos(FindDialog1.FindText, Memo1.Lines);
if (nStart > 0) then
begin
with Memo1 do
begin
SelStart := nStart - 1;
SelLength := nSelLen;
SetFocus;
end;
end;
end;