Dateiname aus Link nehmen und als Var speichern

[Adler]

Hallo CloudStrife,

hast recht. Hier eine andere Lösung:

Delphi-Quellcode:

 Dateiname:='';
 i:=Length(INET_Link);
 Abbruch:=False;

 repeat
  if (INET_Link[i]<>'/') then
   Dateiname:=INET_Link[i]+Dateiname
  else
   Abbruch:=True;
  dec(i)
 until (Abbruch=True)or(i<=0);