Znajdz, Znajdz nastepny i Zamień z Memo

Jak zrobić znajdz, znajdz następny i zamien w Memo?

Są przykłady nawet w helpie Delphi.

Drogi Szymek, dlaczego ciągle powtarzasz w większośći postów np. zobacz w helpie itd, przecież nie każdy zna angielski [love] [love]

Nie do Memo

Drogi Szymek, dlaczego ciągle powtarzasz w większośći postów np. zobacz w helpie itd, przecież nie każdy zna angielski [love] [love]

Wiem o tym,ale ludzie są w internecie słowniki. Myślisz że ja dobrze znam angielski to się mylisz. Ale jeżeli komuś chce się pisać program to niech włoży w to troche wysiłku no nie? Jak ja czegoś nie rozumiem to biorę słownik i w większości przypadków tak jest.

Ale dobra postaram się wklejać fragmenty z helpa Delphi.... po Polsku.
Jak macie do mnie jakieś uwagi to piszcie do mnie przez GG (najpierw się przedstawcie).

NIE NIE MA WCALE W HELPIE DELPHI PRZYKŁADÓW!!!
(po prostu lenistwo)

[code]
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

var
SelPos: Integer;
begin
with TReplaceDialog(Sender) do
begin
{ Perform a global case-sensitive search for FindText in Memo1 }
SelPos := Pos(FindText, Memo1.Lines.Text);
if SelPos > 0 then
begin
Memo1.SelStart := SelPos - 1;
Memo1.SelLength := Length(FindText);
{ Replace selected text with ReplaceText }
Memo1.SelText := ReplaceText;
end
else MessageDlg(Concat('Could not find "', FindText, '" in Memo1.'), mtError, [mbOk], 0);

end;

end;
[/code]