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

[himitsu]

Du hast die "123" doch bestimmt selber eingegeben und den Cursor dahinter stehen lassen?
Also steht SelStart auch am Ende des Textes ... genau da, wo der Cursor stand. :zwinker:

OK, "123" sollte harmlos sein, aber wenn man ausversehn/absichtlich Steuerzeichen, wie Tabs oder Zeilenumbrüche mit drin hat, dann kann das auch mal nicht gefunden werden, weil genau dieser Test dann eventuell nicht vorkommt.

[p80286]

Da der Cursor nicht zu sehen ist (?) ist das wohl das Problem.
"müsste" und "ist"
(Wunsch und Wirklichkeit)

Gruß
K-H

[Davidlocke13]

bin gerade auch schon ziemlich fertig habe gerade aus versehe Sachen aus meinem Quellcode gelöscht und musste da einiges neu schreiben :wink: