Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
7-9016
Trot
2001-10-12 06:47
2002.02.04
Перехват обращения к LPT!


1-8933
Анатолий
2002-01-17 05:27
2002.02.04
Размеры шрифтов


1-8838
Чел
2002-01-19 00:53
2002.02.04
Инсталятор как у Office XP


1-8852
Bazzilio
2002-01-15 16:31
2002.02.04
Проблема считать данные из двочного Dos-овского файла


1-8850
Ev_grenus
2002-01-15 17:05
2002.02.04
Нужна струкнура данных,