Текущий архив: 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.029 c