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]

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

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