关于DriveComboBox问题？？？当我选择a盘时a盘没有软盘，弹出i/o错误！我用try except捕获异常不行啊~求救！

[fbincrazy]

如题

[gobiz]

调试的时候try except捕获异常会失效！直接运行程序应该就可以正常捕获了！

[fbincrazy]

不行啊。直接运行还是弹出的英文异常错误。我加了 try except 还是那样。

[dyf2001]

我的怎么不报错误。是其他代码引起的吧，贴出你代码

[budded]

hehe, 没问题啊

[kuki84]

要调ide设置的，调哪儿忘的了。

[fbincrazy]

呵呵我没有写一个代码 就是把DirectoryListBox1控件和DriveComboBox1控件关联起来
然后选择没有 装软盘的的a盘，结果就报错误，用try except 都捕获不到异常！

[Frank.WU]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FileCtrl, StdCtrls;

type
TForm1 = class(TForm)
DriveComboBox1: TDriveComboBox;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
procedure DriveComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
DriverName:Char;

implementation

{$R *.dfm}
function DiskInDrive(Drive: Char): Boolean;
var ErrorMode: word;
begin
//將字母轉為大寫
if Drive in ['a'..'z'] then Dec(Drive, $20);
//確認參數為字母
if not (Drive in ['A'..'Z']) then
raise EConvertError.Create('Not a valid drive ID');
//觸發異常
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
if DiskSize(Ord(Drive) - $40) = -1 then
Result := False
else
Result := True;
finally
SetErrorMode(ErrorMode);
end;
end;
procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
DriveComboBox1.OnChange := nil; //加入这行
if DiskInDrive(DriveComBoBox1.Drive ) then
showmessage('Driver Ready.')
else
showmessage('Driver Not Ready.');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DriveComboBox1.OnChange := nil;//加入这行
end;

procedure TForm1.FormShow(Sender: TObject);
begin
DriveComboBox1.OnChange := Form1.DriveComboBox1Change;
end;

procedure TForm1.DriveComboBox1Click(Sender: TObject);
begin
DriveComboBox1.OnChange := Form1.DriveComboBox1Change;
end;

[ghy412]

直接运行也捕获不了异常??? 这可真是怪了! 你的代码呢? 肯定是代码有问题!

[Denie_1980]

你的代码的问题,无聊!根异常没有关系,初始化下DriveComboBox1看看.