Eintrag in txt Datei suchen, wenn vorhanden, Zeile ausgeben

[SirThornberry]

Delphi-Quellcode:

var liste01: TStringlist;
    count: Integer;
begin
  liste01 := TStringlist.create;
  liste01.loadfromfile(Filename);
  for count := 0 to liste01.items.count -1 do
  begin
    if pos(lowercase(suchwort), lowercase(liste01.items.strings[count]) > 0 then
    begin
      showmessage(liste01.items.strings[count]); //oder halt anders ausgeben...
    end;
  end;
  liste01.free;
end;