Forum: Object-Pascal / Delphi-Language
Delphi
by sancho1980,
21. Jul 2006
Nein bekomm ich nicht.
Änder mal procedure TReplaceDialog.FormShow(Sender: TObject);
ab:
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by sancho1980,
21. Jul 2006
Aber das ist nicht der Punkt.
Schau mal auf
procedure TReplaceDialog.FormShow(Sender: TObject);
Da wird das erste Vorkommen ausgewählt mit
i := WidePosEx(old, self.TntMemo1.Text, self.index);
self.TntMemo1.SelStart := i - 1;
Forum: Object-Pascal / Delphi-Language
Delphi
by sancho1980,
20. Jul 2006
Nein, kein Fehler.
Es wird nur einfach nicht ausgewählt.
Führ's einfach mal aus; Bei Oncreate wird das erste Vorkommen des Strings ausgewählt.
Klickst du auf "Weiter" 'soll' das nächste ausgewählt werden (schau dir mal den Code an, der ausgeführt wird, sobald auf "Weiter" geklickt wird..ist ziemlich ersichtlich was ich da erreichen will (denke ich mal)
danke,
martin
Forum: Object-Pascal / Delphi-Language
Delphi
by sancho1980,
20. Jul 2006
Das kommt später..
Das Problem ist einfach nur, dass das Selektieren des 2. Vorkommens in diesem TntMemo-Feld nicht funktioniert, obwohl ich es genauso mache, wie bei der OnShow-Funktion..wie du siehst, wird's ja beim ersten Mal noch korrekt ausgewählt
Das Ersetzen ist erstmal nebensächlich, der Benutzer soll ja erstmal gefragt werden, ob er auch wirklich ersetzen will...!
Forum: Object-Pascal / Delphi-Language
Delphi
by sancho1980,
20. Jul 2006
hallo,
was der anhang mal werden soll, ist ein modal-dialog, der substring-vorkommnisse in einem string ersetzt.
die funktionen sind alle noch nicht geschrieben, momentan hänge ich an der routine, die ausgeführt wird, sobald 'weiter'
gedrückt wird...
wenn das formular gezeigt wird, wird das erste vorkommnis von old ausgewählt, so weit so gut
wenn dann weiter gedrückt wird, sollte...