Главная страница
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.029 c
1-44691
ss300
2003-06-29 17:02
2003.07.14
Выбрать из ста 20 случайных неповторяющихся чисел


1-44644
NAlexey
2003-07-01 11:15
2003.07.14
Ошибка записи в поток.


14-44828
Mike B.
2003-06-26 15:47
2003.07.14
Тест


1-44761
shark
2003-07-01 17:08
2003.07.14
числа


3-44617
n1tro
2003-06-19 16:24
2003.07.14
Вопрос по запросу