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;