zeile aus einer textdatei lesen

[Alexander Schäfer]

hallo,

ich habe eine textdatei, welch so aufgebaut ist:<br><br>

// ----> irgendwas <----<br>
//<br>
//-------------------------------------------------------------------<br>

url: http://208.39.14.149:80/Files/13538409-12620585-SHPW107161701/dusk.c13<br>
file: E:\dusk\dusk.c13

url: http://208.39.14.149:80/Files/13538409-12620585-SHPW107161701/dusk.c14<br>
file: E:\dusk\dusk.c14

url: http://208.39.14.149:80/Files/13538409-12620585-SHPW107161701/dusk.c15<br>
file: E:\dusk\dusk.c15
<br><br>
ich möchte die zeilen die mit "url" beginnen herauslesen und in einer listbox ausgeben.

[Thomas Melchert]

<p>Hallo,<br>
<br>
dieses Vorhaben ist mit mehreren Ansätzen realisierbar. Eine Möglichkeit besteht darin, eine Stringliste zu benutzen, mit der Methode LoadFromFile die Datei einlesen. Dann alle Zeilen der Stringliste nach dem Suchbegriff abklappern und die Treffer der Listbox hinzufügen.<br>
<pre>
procedure TForm1.ReadUrl;
var aListe:TStringList;
i :Integer;
begin
ListBox1.Items.BeginUpdate;
ListBox1.Items.Clear;
aListe:=TStringList.Create;
with aListe do
try
LoadFromFile('xxx.txt');
for i:=0 to Count-1 do if (System.Pos('url:', Strings[i])<>0) then
ListBox1.Items.Add(Strings[i]);
finally
aListe.Free;
ListBox1.Items.EndUpdate;
end; // try, with
end; // TForm1.ReadUrl
</pre>
Gruß Thomas</p&gt