Thema: Delphi Frage zum Replacedialog

Einzelnen Beitrag anzeigen

daniel8520
(Gast)

n/a Beiträge
 
#1

Frage zum Replacedialog

  Alt 11. Apr 2004, 19:35
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.
  Mit Zitat antworten Zitat