Witam mam mały problem, mianowicie mam procedure na wyszukiwanie. Procedura liczy mi ile razy dany wyraz wystąpił w tekscie (tekst jest w richedit 1). I teraz moje pytanie jak zrobić taką procedure żeby wyszukany wyraz (całą linie) w Richedit1 przeniosła do Richedit2.
Mam nadzieje że mnie rozumiecie ale jeżeli nie to podobna opcja jest w Delphi. Search\Find in Files...
procedure TForm1.Timer1Timer(Sender: TObject);
Var
FoundAt: LongInt;
StartPos, ToEnd : Integer;
begin
with RichEdit do begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(Edit1.Text , StartPos, ToEnd, [stMatchCase]);
n:=n+1;
if FoundAt <> -1 then begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(Edit1.Text);
label1.Caption:=inttostr(n);
Z góry dzięki za pomoc