StringReplace-Problem

[Tommy1988]

Mein Problem ist es einen einfach String zu ersetzen.

Mein Code:

Delphi-Quellcode:

// Aktuelles Formular: Form2
s := Form1.Memo1.Text;
s := StringReplace(s,FindText.Text, ReplaceText.Text, []);

Normalerweise müsste doch jetzt Memo1 auf Form1 auf FindText.Text durchsucht werden?

Das klappt aber nicht :?

[Apollonius]

Du musst s natürlich auch wieder Memo1.Text zuweisen, sonst steht der veränderte Text nur im Speicher und nicht auf dem BIldschirm.

[Tommy1988]

Naja. ich mein, hier stehts halt so
http://www.dsdt.info/referenz/vcl_fcl/strings.php

Was genau ist denn falsch damit ich es in Zukunft verstehe?

[Apollonius]

Was da auf dsdt.info steht, ist schon richtig. Überlege dir doch mal was du tust:
1. Den Inhalt des Memos in eine Variable kopieren
2. Diese Variable verändern (wie genau, ist hier egal)

Aber: Den veränderten String musst du auch wieder ins Memo schreiben, sonst ist er eben nur im Speicher.

[Tommy1988]

Delphi-Quellcode:

Form1.Memo1.SelStart :=
Form1.Memo1.SelStart + Form1.Memo1.SelLength-1;
Form1.Memo1.SelLength := Length(FindText.Text);

Das bewirkt schonmal garnix.. der markiert immer irgentwas.. aber nicht das was FindText.Text beinhaltet

[Apollonius]

Willst du einen Text durchsuchen oder dort bestimmte Ausdrücke ersetzen?

[Dax]

Delphi-Quellcode:

Form1.Memo1.SelStart := Pos('meins', Form1.Memo1.Text);
Form1.Memo1.SelLength := Length('meins');

[Muetze1]

Memo1.Text ist die falsche Eigenschaft. Nutze statt dessen Memo1.Lines.Text.

Und setze bei StringReplace rfReplaceAll

[Tommy1988]

Wie muss ich da shir jetzt verstehen?

Delphi-Quellcode:

Form1.Memo1.SelStart := Pos('meins', Form1.Memo1.Text) - 1; // Markierung anfang
Form1.Memo1.SelLength := Length('meins'); // Markierung ende

ABER: wie speichere ich den markierten Text in eine Variable damit ich diesen via StringReplace ersetzen kann?

[DeddyH]

Du brauchst keine Variable, schau mal unter Memo.SelText.