Zeilennummer einer Zeichenkette heausfinden?

[marabu]

Hi,

wolltest du nicht das gefundene Wort markieren?

Delphi-Quellcode:

function FindFirst(memo: TMemo; search: String): Boolean;
var
  iStart: Integer;
begin
  search := AnsiLowercase(search);
  with memo do
  begin
    iStart := Pos(search, AnsiLowercase(Text));
    Result := iStart > 0;
    if Result then
    begin
      SelStart := Pred(iStart);
      SelLength := Length(search);
    end;
  end;
end;

Grüße vom marabu