Eine Suche für ein Memo

[Nils_13]

Hi,

es tut mir ja leid, aber die meisten Codes hier im Forum beziehen sich entweder auf das RichEdit oder funktionieren in meinem Programm nicht. Wie kann ich eine Suche in der Art Firefox programmieren. Evtl. laufen die Codes nicht, da ich Tabs benutze und immer mit

Delphi-Quellcode:

  SelectedSheet := Pages.ActivePage;
  with TExtendedTabSheet(SelectedSheet) do
  begin
    with fMemo do
    begin
      
    end;
  end;

den aktuellen Tab und das Memo aswähle. In der Art vom Firefox heißt: Ich habe ein Edit und wenn ich einen Buchstaben tippe (OnChange) wird alles durschsucht und markiert. Ich brauche dann natürlich noch die F3-Funktion und muss das Edit rot markieren, wenn es keine Suchübereinstimmungen gibt. Wie mach ich das ?

[Die Muhkuh]

Pos?

[Nils_13]

So weit bin ich auch schon gekommen.

Delphi-Quellcode:

  SelectedSheet := Pages.ActivePage;
  with TExtendedTabSheet(SelectedSheet) do
  begin
    with fMemo do
    begin
      iPos := pos(search.Text, fMemo.Text);
      if iPos = 0 then exit;
      fMemo.SelStart := iPos-1;
      fMemo.SelLength   := fMemo.SelStart+length(search.Text)-1;
    end;
  end;

-1 ist zwar falsch aber das ist mommentan eh vollkommen egal. Aber allgemein wird rein garnichts markiert. Search ist ein Edit (wie in Firefox). Den Rest habe ich ja schon erklärt.

[Die Muhkuh]

Haste geguckt,

ob er überhaupt zu SelLength gekommen?

[Nils_13]

Er kommt dort anscheinend nciht hin.

[jim_raynor]

Mal ne Blöde Frage. Warum machst du with fMemo, wenn du dann doch wieder bei jeder Eigenschaft fMemo davor schreibst.

Zum Problem: Hast du auch bedacht, dass Pos Groß-/Kleinschreibung beachtet?

[Nils_13]

jo das hab ich beachtet.
Evtl. hängt der Fehler mit meinem Highlighter zusammen.