Einzelnen Beitrag anzeigen

Benutzerbild von Duffy
Duffy

Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge
 
Delphi 3 Standard
 
#6

Re: Eintrag in txt Datei suchen, wenn vorhanden, Zeile ausge

  Alt 24. Dez 2003, 15:53
so sollte es wohl ausehen ...
Zitat von SirThornberry:
Delphi-Quellcode:
var liste01: TStringlist;
    count: Integer;
begin
  liste01 := TStringlist.create;
  liste01.loadfromfile(Filename);
  for count := 0 to liste01.count -1 do
  begin
    if pos(lowercase(suchwort), lowercase(liste01.strings[count]) > 0 then
    begin
      showmessage(liste01.strings[count]); //oder halt anders ausgeben...
    end;
  end;
  liste01.free;
end;
Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----
  Mit Zitat antworten Zitat