Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

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

← →
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;

---

← →
Anatoly Podgoretsky ©   (2002-01-15 21:56) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.007 c