replace-modalform schreiben

[sancho1980]

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();