Ich habe den durchblick verloren.
Hier mein derzeitiger Code
Code:
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)
DatStream := TFileStream.Create(DatFileCreate, fmCreate);
IdHttp1.Get(Edit1.Text, DatStream);
DatStream.Free;
end;
Was ist was ??
Ich brauche doch eine Variable für i, Abbruch und Dateiname, oder ?
Tötet keine Vögel, denn wir Vögeln auch keine Toten.