datei nicht überschreiben..

[mkinzler]

Delphi-Quellcode:

  i:=1;
  dateiname:='\video';
  endung:='.flv';
  dlname:=dateiname+inttostr(i)+endung;
  while FileExists(downloadpfad+dlname) do 
  begin
      inc(i);
      dlname:=dateiname+inttostr(i)+endung;
  end;