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

1. Функцией FileExist (FileName : string) проверяешь, есть ли уже такой файл.
2. Изменяешь имя файла и снова на пункт 1 пока не получишь уникальное имя файла

Проверяеш существование файла функцией FileExists(Name:String):boolean, где Name - имя файла. Если файл существует то в цикле начинаеш подбирать нужную цифру.

Покажите пример пожалуйста, а то у меня не получается...
вот с этим:
memo1.Lines. SaveToFile

Надо указать имя файла:

memo1.Lines. SaveToFile('MyFile.txt') ;

Цитата(PZ @ 7.12.2004, 18:59)

memo1.Lines. SaveToFile('MyFile.txt') ;

Не совсем корректно написано, более правильно будет так:

Код

memo1.Lines. SaveToFile('<Путь>+MyFile.txt');

Пример:

Код

memo1.Lines. SaveToFile('c:\MyFile.txt');

Код

var f1,F2:string; begin F1:='C:\my.Txt'; F2:=F1; I:=0; while fileExists(F1)  do begin F1:=F2+'('+ IntToStr(i) + ')'; inc(i); end; memo1.Lines. SaveToFile(F1); end;

Это сообщение отредактировал(а) RAdmin - 7.12.2004, 19:51

Function WhatFileName(path:string):string; Модуль MySys

Это сообщение отредактировал(а) SlaUr - 8.12.2004, 05:32

RAdmin
Только номера будут после расширения добавляться...

[/code]

Код

procedure SaveFile(FName: string); var      nam1, nam2, NewFN: string;      p, i: integer; begin  p := Pos('.', FName);  nam1 := Copy(FName, 1, p - 1);  nam2 := Copy(FName, p, Length(FName) - p + 1);  // хотя легко можно сделать, чтобы этот фрагмент глюканул  i := 1;  NewFN := nam1 + nam2;  while FileExists(NewFN) do  begin    NewFN := nam1 + '(' + IntToStr(i) + ')' + nam2;    inc(i);  end;  Memo1.Lines.SaveToFile(NewFN); end;[code=delphi]

EKoshelev да чёто както я забыл забы.

Код

function UniqueFile(S: TFileName):TFileName; var x: Integer; Dir, FName, Ext: String; begin Dir := ExtractFIlePath(S); FName := ChangeFileExt (ExtractFIleName(S), ''); Ext := ExtractFileExt(S); x:=1; Result := S;  while fileexists (Result) do   begin     Result := Dir + FName + '_' + inttostr (x) + Ext;  Inc(x); end; end;

Пример использования:

Код

memo1.Lines. SaveToFile (UniqueFile ('c:\MyFile.txt'));

Цитата(Zero @ 7.12.2004, 22:32)

Цитата(PZ @ 7.12.2004, 18:59) memo1.Lines. SaveToFile('MyFile.txt') ; Не совсем корректно написано, более правильно будет так: Код memo1.Lines. SaveToFile('<Путь>+MyFile.txt'); Пример: Код memo1.Lines. SaveToFile('c:\MyFile.txt');

Так тоже работать будет.

а если так:
var i:integer;
p,path,filename,format:string;
begin
if i=o then p:='';
if i>0 then p:=IntToStr(i);
while FileExists(NewFileName) do
begin
NewFileName := path +Filename+p+format;
inc(i);
end;
Memo1.Lines.saveToFile(Newfilename);
end;
//format='.txt'

Цитата(Pegas @ 11.12.2004, 15:28)

Так тоже работать будет.

А ну да, чё-то я тормознул.

мой способ рботает. можно пользоваться

Vladimir13 позвольте спросить в каком месте он работает? если уж говорить о том что он 100% работает, то и писать его тоже надо полностью...
1. где у вас инициализируются переменные path, filename?
2. этот кусок кода вообще не рабочий т.к. при первом проходе переменная NewFileName вообще не задана, соотвтственно такого файла нет!

Цитата

while FileExists(NewFileName) do begin NewFileName := path +Filename+p+format; inc(i);

3. опять же по этому куску кода... Допустим (абстрактно) переменная NewFileName силами господа Бога, все же была инициализирована, и такой файл существует, то каким способом эта же переменная примет нужное значение??? i увеличится, но она же никак не влияет на название нового файла...

Так что скорее стирайте свою надпись о том что код рабочий... для самообразования советую посмотреть мой код, который должен работать!

а догадаться, что переменные задать надо никак? Ведь если кому непонятно, напишут об этом. А для самообразования я использую Архангельского.

Vladimir13 да бог с ними с переменными, хотя тоже это не есть хорошо, т.к. для того чтобы сохранить файл надо задавать их каждый раз что неочень удобно, а что вы можете сказать по 2 и 3 пункту?!