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

Вниз

TDriveComboBox   Найти похожие ветки 

 
BOA_KAA ©   (2003-06-30 13:31) [0]

Добрый день!
Подскажите, пожалуйста, как решить такую проблемку:
если в TDriveComboBox выбрать, к примеру, диск А, а дискета, соответственно, не вставлна, то возникает исключение с неприятным сообщением I/O Error 21 (или что-то в этом роде). Как отловить это исключение, чтобы заменить страшную красную надпись чем-нибудь менее пугающим?


 
Palladin ©   (2003-06-30 13:37) [1]

try
except
end


 
Skier ©   (2003-06-30 13:41) [2]

IOResult ?


 
BOA_KAA ©   (2003-06-30 14:19) [3]

На какое событие отлавливать ошибку?


 
Дмитрий К.К. ©   (2003-06-30 14:44) [4]

OnChange наверное ;)


 
BOA_KAA ©   (2003-06-30 14:52) [5]

Наверное, только вот такая конструкция ну не катит и все! :(
{$I-}
if IOResult <> 0 then
//трубим об ошибке
{$I+}


Помогите, я не тормоз :)


 
Palladin ©   (2003-06-30 15:14) [6]

try
reset(f);
except
showmessage("нет дискеты");
end;


 
BOA_KAA ©   (2003-06-30 15:52) [7]

> Palladin © (30.06.03 15:14)
Я не знаю, что там записано. Мне просто надо узнать, готово устройство или нет?


 
Skier ©   (2003-06-30 15:54) [8]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621873&n=15


 
Palladin ©   (2003-06-30 15:58) [9]

мля

function IsADiscPresent:boolean;
var
sr:tsearchrec;
begin
{$I-}
findfirst("A:\*.*",faAnyFile,sr);
result:=IOResult<>0;
{$I+}
if result then FindClose(sr);
end;


 
BOA_KAA ©   (2003-06-30 16:44) [10]

Все, с позором удаляюсь думать, куда это впихнуть :-) Шутка, спасибо!



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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
7-44935
xman
2003-04-28 21:12
2003.07.14
Закрытие процесса


3-44609
TGrey
2003-06-21 13:27
2003.07.14
Распространение приложения


14-44885
Скорбящий
2003-06-27 16:42
2003.07.14
Хармс отдыхает...


1-44744
Pentium 5
2003-07-01 12:51
2003.07.14
TExcelApplication, завершение процесса EXCEL.EXE


3-44546
Belkova
2003-06-19 15:02
2003.07.14
Exeption AAccessVialation