Fehler in einer while Schleife

[stifflersmom]

Zitat von moperswings:

Hallo,

ich möchte eine *.html-Datei nach Bildern durchsuchen und die gefundenen Bilder sollen in einer Listbox angezeigt werden. Ich weiss aber nicht, wie ich mit einer while-Schleife eine TStringliste durchlaufen lasse. Ohne while wird mir nur das erste Bild angezeigt.
Hoffe, Ihr könnt mir helfen!
Viele Grüsse, moperswings

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
        dateiname: string;
        inhalt: TStringlist;
        pic_start: string;
        i: integer;
        temp: String;
begin
        pic_start := '<img src';
        dateiname := 'd:\image14\daten.html';
        Memo1.Lines.LoadFromFile(dateiname);
        inhalt := TStringlist.Create;
        inhalt.LoadFromFile(dateiname);

        while not EOF({inhalt läuft nicht}) do begin
          for i := 0 to inhalt.Count - 1 do
          if pos(pic_start, inhalt[i]) <> 0 then begin
          temp := inhalt[i];
          Listbox1.Items.Add(temp);
          inhalt.free;
          exit;
          end;
        end;
end;

'ne StringList hat kein EOF also, wieso willst Du das (mit while) nutzen?
Du solltest einfach so Deine StringLsit durchgehen:

Delphi-Quellcode:

For I:= 0 to Inhalt.Count -1 do
...

Moin