Suchfunktion

[Stevie]

Zitat von Matze:

Wenn du dann weitersuchen möchtest, dann verwende PosEx aus der Unit StrUtils (in die uses einbinden).

Nö, die gibt's net!

Ich hab mal ne nette Procedure geschrieben, die den Suchtext in nem Memo anzeigt. (HideSelection muss auch False stehen)

Delphi-Quellcode:

procedure FindNext(Memo: TMemo; const Text: string);
var
  FirstIndex, StartPos: Integer;
  SearchText: string;
begin
  StartPos := Memo.SelStart;
  if Memo.SelLength > 0 then
    Inc(StartPos);
  SearchText := Copy(Memo.Text, Succ(StartPos), Length(Memo.Text) - StartPos);
  FirstIndex := Pos(Text, SearchText);
  if FirstIndex > 0 then
  begin
    Memo.SelStart := StartPos + Pred(FirstIndex);
    Memo.SelLength := Length(Text);
  end;
end;