Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c