Memo Durchsuchen & Fortschritsanzeige

[Dax]

Hm, ich weiss nicht.

Delphi-Quellcode:

procedure FindAndMark(inMemo: TMemo; word: string; caseSensitive: Boolean := false);
var foundIndex: Integer;
begin
  if not caseSensitive then
    foundIndex := Pos(AnsiLowerCase(word), AnsiLowerCase(inMemo.Text))
  else
    foundIndex := Pos(word, inMemo.Text);

  if foundIndex > 0 then
  begin
    inMemo.SelStart := foundIndex;
    inMemo.SelLength := 0;
  end;
end;

Persönlich finde ich das sogar einfacher als die hier gezeigten Wege - plus dem Fakt, dass man damit auch nach strings suchen kann, die Zeilenbrücke enthalten. Nun statt Pos noch PosEx, und schon hat inkrementelle Suche