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
