datei nicht überschreiben..

[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