Einzelnen Beitrag anzeigen

DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#4

AW: Pfad zur Datei aus URL extrahieren

  Alt 2. Okt 2018, 08:49
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.
  Mit Zitat antworten Zitat