Eine Suche für ein Memo

[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.