существует ли файл?

[subsonic]

если файл существует, то append else
assignfile?

[Квэнди]

fileexists

[True_Evil]

 
   AssignFile(F,'test.txt');
   reset(f);
   if not(IOResult = 0) then
      Rewrite(f)
   else
      append(f);
   if (IOResult = 0) then
   begin
     try
       writeln(F,'HELLO!!!');
     finally  
       Flush(F);
       CloseFile(F);
     end;
   end;

если файла нет то создаст если есть то допишет в конец

[Air]

Или можно так

procedure TForm1.FormCreate(Sender: TObject);
const  WayFileName='C:\12.txt';
var     F:TextFile;
begin
AssignFile(F,WayFileName);

if FileExists(WayFileName) then
 AppEnd(F)
else
 ReWrite(F);

WriteLn(F,'Hello!');
CloseFile(F);
end;

Праитцип тот же если "нет" - то создать и записать, если "есть" - то дописать.

P.S. Если я правильно понял вопрос.

[subsonic]

спосибо конечно, хотя хватило "FileExists"!

написал так:

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
if not FileExists('c:\1.txt') then
begin
AssignFile(f,'c:\1.txt');
Rewrite(f);
write (f,edit1.Text);
closefile(f)
end else
AssignFile(f,'c:\1.txt');
Append(f);
Write(f,edit1.text);
closefile(f);
end;

[Air]

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

спосибо конечно, хотя хватило "FileExists"!

написал так:

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
if not FileExists('c:\1.txt') then
begin
AssignFile(f,'c:\1.txt');
Rewrite(f);
write (f,edit1.Text);
closefile(f)
end else
AssignFile(f,'c:\1.txt');
Append(f);
Write(f,edit1.text);
closefile(f);
end;

А зачем столько лишних строк?
Я конечно ни чего не имею против, просто код длинный.

[subsonic]

Подскажите пожалуйста где лишние строки?

Р.S. Радует только то, что сам додумался.
я самоучка, допускаю много ошибок. Научите

[mihali4]

Вот они:

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
AssignFile(f,'c:\1.txt');
if not FileExists('c:\1.txt') then
Rewrite(f) else
Append(f);
Write(f,edit1.text);
closefile(f);
end;

[subsonic]

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

Вот они:

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
AssignFile(f,'c:\1.txt');
if not FileExists('c:\1.txt') then
Rewrite(f) else
Append(f);
Write(f,edit1.text);
closefile(f);
end;

еще раз спс.