Frage zum Replacedialog

[daniel8520]

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.

[Keldorn]

Hallo

Zitat:

SelPos := Pos(FindText, Memo1.Lines.Text);
if SelPos > 0 then

du suchst doch immer nur nach einem Findtext und ersetzt das dann, du müßtest hier in einer While-schleife alle suchen und ersetzen. Ich würd aber bei alles ersetzen auf Stringreplace mit replaceall-Flag zurückgreifen.

Mfg Frank

[daniel8520]

Und auf anfängerisch!

MfG
Daniel L.

[toms]

Hi,

Schau mal hier:

http://home.t-online.de/home/elsner.helmut/index.htm

[daniel8520]

Würde mir ja weiterhelfen, aber ich möchte es ja in einem TRichEdit machen, und net in nem Memo, weißt du!?

MfG
Daniel L.

[Keldorn]

Zitat:

Zitat von daniel8520

Würde mir ja weiterhelfen, aber ich möchte es ja in einem TRichEdit machen, und net in nem Memo, weißt du!?

Guten Morgen ;) Warum schreibst du dann in deinem Code oben memo1, von einem Richedit war überhaupt noch nicht die Rede?

http://www.delphi-forum.de/viewtopic...038&highlight= ziemlich in der mitte des Beitrages, ist fast copy&paste-fähig.

Mfg Frank

[daniel8520]

Der ging auch noch net richtig, habs jetzt aber hinbekommen.

:hello:

Danke

MfG
Daniel L.