[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'));

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

[SKIPtr]

Сообщение от lmikle

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

спасибо за код придеться его использовать
просто мне хотелось непосредствено вызвать функцию который использует например Explorer
но раз не кто не может предлажить возможно эта фукция не доступно
буду использовать предложеную