Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Как проверить существует файл или нет!   Найти похожие ветки 

 
sagchat ©   (2003-06-14 17:50) [0]

Как проверить существует файл или нет!
Если можно кодом, а не посылайте почитать что либо!
И еще у меня Windows 98 собираюсь ставить 2000 в дельфях не чего не изменяется относительно ОС


 
Ihor Osov'yak ©   (2003-06-14 17:55) [1]

FileExists случаем не подойдет?

Зы - код:


program BlaBla;

uses
windows,
sysutils,
....


var fileName:string;

begin
fileName := чего-то там..
if not FileExists(fileName) then begin
MessageBox(0,PChar(fileName),"Error",MB_OK+MB_ICONERROR);
exit;
end;

.. чего-то делаем дальше


 
Катерина ©   (2003-06-14 22:23) [2]

Можно так:

var F : textfile; filename : string;

begin
...
AssignFile(F,filename); {$I-} reset(F); {$I+}
if ioresult <> 0 then exit;
...
CloseFile(F);
...
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.041 c
3-83922
Tanya
2003-06-03 16:49
2003.06.26
Запись данных в базу при отключении питания


1-84198
VISA
2003-06-12 11:09
2003.06.26
Как оставить на форме только 2 системные кнопки?


1-84141
NailMan
2003-06-10 16:32
2003.06.26
Отключение скринсейвера


14-84541
race1
2003-06-07 08:32
2003.06.26
XP Style


6-84476
shurik
2003-04-19 15:33
2003.06.26
Работа ссетью