TSynEdit.SearchReplace - wie anwenden?

[Giantics]

Ich habe in vielen Delphi-Foren Code zur Funktion SearchReplace gefunden. Leider macht die Funktion bei mir (L0.9.26) nicht das, was sie soll.
Der FindDialog wird über ein Menü aufgerunde, "FindDialogFind" ist das OnFind-Ereignis des Dialogs.

Code: Alles auswählen

procedure TfrmEditor.FindDialogFind(Sender: TObject);
var
  srOptions: TSynSearchOptions;
begin
  srOptions := [];
  if not (frDown in FindDialog.Options) then Include(srOptions,ssoBackwards);
  if (frMatchCase in FindDialog.Options) then Include(srOptions, ssoMatchCase);
  if (frWholeWord in FindDialog.Options) then Include(srOptions, ssoWholeWord);
  if AEdit.SearchReplace(FindDialog.FindText,'',srOptions)=0 then  //AEdit ist die SynEdit-Komponente
  begin
    SHowMessage('Yes');
  end else
    SHowMessage('No');

Leider bringt die Funktion immer "Yes", egal was man eintippt. Im Text markiert wird auch nichts, der Cursor bleibt da, wo er vorher war.
Muss ich den Text irgendwie noch selbst selektieren? Nur welche Position?

Gruß
Thomas

[monta]

Habs gerade mal probiert...das seltsame ist, solange man den Text im Edit nicht ändert, sondern den standardmäßig eingetragenen Komponentennamen drin hat, geht das suchen wunderbar mit deinem Code.
Siehe Anhang.

Sobald man was dazu schreibt, gibts immer ein Yes.

[Giantics]

Jetzt verstehe ich die Welt nicht mehr.
Ich habe seit gestern nichts am Code geändert. Einfach nur runtergefahren, heute neu gestartet und siehe da: Es funktioniert so, wie es sein sollte.
Ich denk mal das Problem hat sich erledigt.

Danke!

[Targion]

Das hatte ich auch schon mehrfach. Irgendwie kommt man sich dann extrem blöde vor, es fehlt im Grunde nur noch ein höhnisches Lachen aus dem Computer, vor allem, wenn man zuvor Stunden nach dem Fehler gesucht hat...

[monta]

es fehlt im Grunde nur noch ein höhnisches Lachen aus dem Computer, vor allem, wenn man zuvor Stunden nach dem Fehler gesucht hat...

Da würde sich doch ein IDE-Plugin anbieten, wo man dann im Menü den Punkt 'Lachen...' auswählen kann

[pluto]

Also dein Code weist keinen Fehle auf. Das der Code nach einem runter fahren wieder geht könnte ein Pointer Problem gewesen sein.