Zitat von
napstar:
Delphi-Quellcode:
i:=1;
dateiname:='\video';
endung:='.flv';
dlname:=dateiname+inttostr(i)+endung;
if FileExists(downloadpfad+dlname) then begin
while i<>i do begin
i:=i + 1;
end;
end;
i ist immer 1
Klar, weil du i nur um 1 erhöhst, wenn i ungleich i ist - was nie zutrifft.
Probiers doch mal so:
Delphi-Quellcode:
i := 1;
While FileExists(downloadpfad + 'video' + IntToStr(i) + '.flv' do inc(i);//Solange Datei mit i existiert, i um 1 erhöhen
Mfg