RichEdit und FindDialog

[Davidlocke13]

Und wieder habe ich ein Problem !

Ich möchte in meinem RichEdit über einen FindDialog suchen und dafür habe ich folgende Prozedur:

Delphi-Quellcode:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
    Donde:integer;
 begin
   with RichEdit1 do
   begin
     Donde:=FindText(FindDialog1.FindText,
                     SelStart+1,
                     GetTextLen,
                     [stWholeWord]-[stWholeWord]);
     if Donde=-1
       then ShowMessage(FindDialog1.FindText + ' nicht gefunden!')
       else begin
              SetFocus;
              SelStart:=Donde;
              SelLength:=Length(FindDialog1.FindText);
            end;
   end;
end;

Nur mein Programm meint es kann nichts finden !
Wo ist da mein Fehler ?

LG

[himitsu]

Was willst du suchen?
Und das ist auch wirklich enthalten?


PS:

Delphi-Quellcode:

[stWholeWord]-[stWholeWord]

kann man auch einfach als

Delphi-Quellcode:

[]

schreiben. :angle:

[Davidlocke13]

das Richedit will ich durchsuchen und das gefunden Wort soll er mir markieren

[DeddyH]

Worauf steht denn SelStart im Moment des Dialogaufrufs?

[himitsu]

Stimmt, das gab's ja auch noch.
(hätte nicht davon ausgehen sollen, daß jeder dieses vorher selber prüft)

Zitat:

und das gefunden Wort soll er mir markieren

Und was für ein "Wort" willst du suchen?

[DeddyH]

FindDialog1.FindText nehme ich mal an.

[Davidlocke13]

SelStart wir bei mir erst verändert wenn SelStart + 1 kommt

Standardwert müsste also 0 sein

[himitsu]

Müsste oder ist?
Tipp: Schau doch mal mit dem Debugger nach,
bzw. wo steht denn der Cursor im Richedit?

Zitat:

Zitat von DeddyH (Beitrag 1194297)

FindDialog1.FindText nehme ich mal an.

OK, und was wurde in den Dialog eingegeben? :angle2:

[DeddyH]

"Müsste" oder "ist"? Bei mir war der bei einem schnellen Test nämlich initial am Textende. Einfach mal mit TAB ins RichEdit wechseln und schauen, wo der Cursor blinkt ;)

[Davidlocke13]

Anhang 38193