Einzelnen Beitrag anzeigen

CloudStrife

Registriert seit: 15. Apr 2003
97 Beiträge
 
Delphi 6 Enterprise
 
#7
  Alt 19. Mai 2003, 23:58
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.
  Mit Zitat antworten Zitat