Ich würde es vielleicht mit einer StringListe machen
Delphi-Quellcode:
if FileExists(
url datei)
then
begin
sl := TStringList.Create;
try
sl.LoadFromFile(
url datei);
if sl.Count > 0
begin
for i := 0
to sl.Count - 1
do
begin
if Pos('
url=', sl.Strings[i]) > -1
then
begin
showmessage( Copy(sl.Strings[i], Pos('
=', sl.Strings[i]) + 1, Length(sl.Strings[i])) );
end;
end;
end;
finally
sl.Free;
end;
end;
Optmieren mit Zwischenvariablen usw kann jeder selber.