| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание файла? [D6, Win95/98]

Dmitriy_R ©   (2002-01-15 10:49:00) 

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

---

Anatoly Podgoretsky   (2002-01-15 21:56:00) [1]

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

---

Фе   (2002-01-15 20:57:00) [2]

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

---

gek   (2002-01-15 11:04:00) [3]

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;

---

tovSuhov   (2002-01-15 11:02:00) [4]

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

---

Наверх