Eintrag in txt Datei suchen, wenn vorhanden, Zeile ausgeben

[Logic]

Hallo!

Wie schon der Titel sagt möchte ich eine Txt Datei (ICQ Log) nach einem Eintrag (String) durchsuchen lassen und falls der Eintrag in einer Zeile vorhanden ist, soll er die ganze Datei ausgeben, in ListBox z.b. und weitersuchen.

Nur habe ich leider keine Ahnung wie ich da vorgehen.

mfg
Logic

[Duffy]

Hallo Logic,
anbei mal zu deinem Problem ein Beispiel. Es sollte Dir helfen, den Anfang zu finden.

bye
Claus

[Edit]Beispiel geändert[/Edit]

[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;

[Logic]

@Duffy, thx. Genau vom Prinzip ist es das, nur sollte er dann nur noch die Zeile ausgeben in der der Suchbegriff vorkommt.

@SirThornberry, mein Delphi meldet mir, dass er nicht weiß was "items" bei liste01 ist. Was kann ich da machen?

thx schonml

[Duffy]

Hallo Logic,

Zitat von Logic:

und falls der Eintrag in einer Zeile vorhanden ist, soll er die ganze Datei ausgeben, in ListBox z.b.

Na ja, nochmal das Ganze,

bye
Claus

[Duffy]

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;

[SirThornberry]

so sollte es aussehen, hatte keine mögllichkeit das zu testen und hab ausgewohnheit durch arbeit mit der Listbox das items noch dazwischen gesetzt was da nicht hinn gehört

[Logic]

Hey vielen Dank euch beiden.

Jetzt muss ich es nur noch verstehen