Главная страница
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.021 c
14-84659
Zacho
2003-06-03 21:11
2003.06.26
Файлы *.wkq


7-84801
chernoruk
2003-04-18 19:45
2003.06.26
Запуск приложения


1-84344
Hog
2003-06-16 14:05
2003.06.26
Побитовые операции


7-84765
Hamel1on
2003-04-15 11:55
2003.06.26
Как сделать программу службой в Win2k?


4-84852
Керик
2003-04-25 20:47
2003.06.26
Сортировка