Создание файлов

@KaZaK555 · Регистрация: 24.08.2011

Author24 — интернет-сервис помощи студентам

Всем привет!

Delphi

procedure TForm1.sButton6Click(Sender: TObject);
Var f:System.Text; //класс текстового файла
begin
AssignFile(f,'file.txt'); //регистрация файла
 Rewrite(f); //создание файла, если он там есть, то перезаписываеться (старый удаляеться, новый пустой появляеться)
 //Reset(f); //просто открываем файл для редактирования
CloseFile(f); //закрываем файл
end;

Вот у меня есть код создание файла Как убрать в нем код Rewrite(f); или заменить на другой чтобы он при создании файла убеждался на наличие его. а то у меня получается так файл есть, в нем уже есть вписанные строки и когда я нажимаю на кнопку то он удаляет тот файл а этот ставит. Мне бы надо чтобы он не удалял если там уже что то есть. Спасибо!

@Mysterious Light · 09.10.2011, 13:25

Если хочешь дозапись, то используй AppendFile вместо Reset.
Если хочешь, чтоб имеющийся файл не менялся, то используй стандартные функции на проверку существования файла (FileExists) и, в зависимости от результата, создавай файл или же не делай ничего.

Delphi

AssignFile(f,'test.txt');
if FileExists('test.txt') then begin {do smth or don't} end
else begin
  Reset(f);
  {write to file smth}
  CloseFile(f);
end;

@KaZaK555 · 09.10.2011, 13:39 **[ТС]**

Mysterious Light, если файла нет то он не чего не создает ну из твоего кода вписан ого) а если файл есть то да текст в нем остается.

@Mysterious Light · 09.10.2011, 13:51

Сообщение от Mysterious Light

Если хочешь дозапись, то используй AppendFile вместо Reset.
Если хочешь, чтоб имеющийся файл не менялся, то используй стандартные функции на проверку существования файла (FileExists) и, в зависимости от результата, создавай файл или же не делай ничего.

Delphi

AssignFile(f,'test.txt');
if FileExists('test.txt') then begin {do smth or don't} end
else begin
  ReWrite(f); // создаем файл, если его нет
  {write to file smth}
  CloseFile(f);
end;

Конечно, должно быть так

@KaZaK555 · 09.10.2011, 13:53 **[ТС]**

Mysterious Light, Спасибо!

@KaZaK555 7 / 7 / 4 Регистрация: 24.08.2011 Сообщений: 313
	09.10.2011, 13:39 [ТС]	3
	Mysterious Light, если файла нет то он не чего не создает ну из твоего кода вписан ого) а если файл есть то да текст в нем остается. 0

@KaZaK555 7 / 7 / 4 Регистрация: 24.08.2011 Сообщений: 313
	09.10.2011, 13:53 [ТС]	5
	Mysterious Light, Спасибо! 0