Was ich mit Replacedialog meinte wisste ihr ja sicherlich!
Und wie der so in etwas aussieht auch.
Nun mein Prob:
Hab den folgenden Code aus der Delphi-Hilfe kopiert
Delphi-Quellcode:
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
var
SelPos: Integer;
begin
with TReplaceDialog(Sender) do
begin
{ Globale Suche mit Groß-/Kleinunterscheidung nach FindText in Memo1 }
SelPos := Pos(FindText, Memo1.Lines.Text);
if SelPos > 0 then
begin
Memo1.SelStart := SelPos - 1;
Memo1.SelLength := Length(FindText);
{ Markierten Text durch ReplaceText ersetzen }
Memo1.SelText := ReplaceText;
end
else MessageDlg(Concat('Could not find "', FindText, '" in Memo1.'), mtError, [mbOk], 0);
end;
end;
Der funkt auch eigentlich ganz gut, ABER beim klick auf "Alles ersetzen", wird auch nur nur, wie bei beim klick auf "Ersetzen", der nächst gefunden String ersetzt!
Kann ich hier irgendwas veränder, ohne gleich eine ganze function zuverwenden. oder falls nicht, könnte mir jemand dabei helfen? Kenne mich nämlich mit function noch nicht so gut aus.
MfG
Daniel L.