Замена файла при создании файла

[mitiay]

Загружаю файл:

procedure TForm1.Button1Click(Sender: TObject);
var
Path:String ;
begin
Path:='D:\reports\'+DateToStr(Date)+'\';
With ListBox1 do
if ForceDirectories(Path) then begin
 idftp1.Get(Items[ItemIndex],Path+Items[ItemIndex],true);

Но проблема в том что при скачке файла как я понял,папка удаляется создается заново и файл перезаписывается.Как сделать чтоб допустим качаем файл отчет1,если уже есть такой файл в папке то грузим с названием отчет1(1)

[Пепел Феникса]

проверяйте наличие старого файла, и задавайте иное имя.

[min@y™]

проверяйте наличие старого файла, и задавайте иное имя.

Остаётся добавить, что папка не пересоздаётся. Файл перезаписывается поверх старого, так что, таки да, качай в файл с новым именем. Где-то у меня была функция... Во, выдрал из прожэкта:

// Поиск уникального имени файла в папке AFolder
function GetUniqueFileName(const AFolder, APrefix, AExtention: string): string;
var
  Index: Integer;
begin
  Index:= 1;
  repeat
    Result:= IncludeTrailingPathDelimiter(AFolder) + APrefix + IntToStr(Index) + AExtention;
    Inc(Index);
  until not FileExists(Result);
end;

[NIKOLAYY2]

mitiay
Использовать инкримент, тебе написали уже выше.
Или сохранять файл как время создания, дата -время создания.

TimeToStr();
DateTimeToStr();