поиск и сохранение под другим именем

[fitc]

Я редактирую шаблон .dot и сохраняю его в папке с проектом как .doc. Как сделать так, чтобы, например файл 'a.doc', если он уже есть в папке с проектом сохранялся под именем 'копия(1) a.doc', потом 'копия(2) a.doc' и т.д. ?

[Evgeniy26]

Вариант:

  
var
  NameIndex: Integer;
begin
  NameIndex := 1;
  while True do
  begin
    if not FileExists('FilePath' + IntToStr(NameIndex)) then
    begin
      //Сохраняем Копия + NameIndex
      break;
    end;
    Inc(NameIndex);
  end;
....

[Ntlegend]

попробуй этот код:

var i:integer;
begin
if FileExist('a.doc')
 then begin
  i:=1;
  while FileExist('копия('+IntToStr(i)+') a.doc') do
   inc(i);
  ShowMessage('Файле с именем "копия('+IntToStr(i)+') a.doc" в этой папке нету')
 end
 else ShowMessage('Файле с именем "a.doc" в этой папке нету')
end;

опоздал.. но это вариант немного инече..

[fitc]

Спасибо Evgeniy26 и Ntlegend все работает