[SKIPtr]

драсте подскажите пожалуйста как можно реализовать запись второго(или) следующего файла с одинаковым именем
ну например как винд пишет файл Name а при повторной перезаписи пишет Name(1)

[lmikle]

Например, так:

Код:

function GetFileName(AFileName : String) : String;
var
  I : Integer;
begin
    I := 0;
    Result := AFileName;
    While FileExists(Result) Do
      Begin
        Inc(I);
        Result := ChangeFileExt(AFileName,'('+IntToStr(I)+')'+ExtractFileExt(AFileName));
      End;
end;

[SKIPtr]

а сделать такое средствами виндус или делфи афтоматически такое возможно

[Страдалецъ]

1. Это код на дельфи написан.
2. Афтоматически что,где,когда? Неясен процесс афтомазации

[SKIPtr]

Сообщение от Страдалецъ

Афтоматически что,где,когда? Неясен процесс афтомазации

в примере выше как бы я должен сам написать проверку на наличие файла и соответствено сам переименовать
а меня интересует команда шоб винд сам это сделал

[lmikle]

Ну, ты видимо совсем не понимаешь.
Тебе дали функцию, которая как раз и находит "свободное" имя файла.
Твой код в таком случае должен выглядеть примерно так:

Код:

Memo1.Lines.SaveToFile(GetFileName('c:/my_dir/my_ile.txt'));

Т.е. для операции сохранения надо просто "обернуть" имя файла в вызов этой функции.
Ну а сама функция - чистый Дельфи-код. Можешь просто поместить ее в отдельный модуль, прописать пути к нему в библиотеке и использовать точно так же, как и все остальные библиотечные модули.