Zitat von
mkinzler:
Solange du keine Ersetzungen machst, wenn aber (und die Länge differiert) bekommst du Probleme.
Nein bekomm ich nicht.
Änder mal
procedure TReplaceDialog.FormShow(Sender: TObject);
ab:
Delphi-Quellcode:
i := WidePosEx(old, self.TntMemo1.Text, self.index);
self.TntMemo1.SelStart := i - 1;
self.TntMemo1.SelLength := Length(self.old);
self.TntMemo1.SelText := '1234';
self.TntButton2.Enabled := true;
self.index := i + Length(self.old);
Das mit dem Ersetzen geht dann alles ganz einfach. Das Problem ist das Auswählen.
edit:
PS: Habs grad raus: Vor dem zweiten
self.TntMemo1.SelStart := i - 1;
muss noch ein
self.TntMemo1.SetFocus();