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

← →
Dmitriy_R (2002-01-15 10:49) [0]

Народ подскажите как при сохранении данных на диск в этом примере
если на диске нет файла FileName то как его создать?
begin
AssignFile(F, FileName);
{$I-}
Reset (F);
{$I+}
If IOResult <> 0 then goto Error;
Rewrite(F);
Write(F, Line);
CloseFile(F);
end;

← →
tovSuhov © (2002-01-15 11:02) [1]

AssignFile(F, FileName);
{$I-}
Reset (F);
If IOResult <> 0 then Rewrite(F);
{$I+}
Write(F, Line);
CloseFile(F);
end;

← →
gek (2002-01-15 11:04) [2]

function FileExists(const fName:s67):boolean;
begin
FindFirst(fName,anyFile,DirInfo);
FileExists:=DosError = 0;
end;

begin
if not FileExists("c:\kuku.txt") then
{нет}
else
{есть}
end;

← →
Фе (2002-01-15 20:57) [3]

to gek
Borland была раньше
Sysutils
function FileExists(const FileName: string): Boolean;

AssignFile(F, FileName);
Rewrite(F);
Write(F, Line);
CloseFile(F);

Создание файла? Найти похожие ветки