您的位置：首页 > 编程语言 > Delphi

Delphi Access violations 问题的解决方法

2008-12-19 11:34 661 查看

Delphi Access violations 问题的解决方法

作者：来源：发布日期：2007-12-05

在下面的代码里，在调用一个已经被删除了的对象（b:TBitmap）事件后，一个Access violation出现了：

var b:TBitmap;

begin

b:=TBitmap.Create;

try

//对b对象进行一些操作

finally

b.free;

end;

...

//由于b已经被释放，一个Access violation错误将会出现

b.Canvas.TextOut(0,0,’这是一个 Access Violation’);

end;

2. 不存在的API参数

如果你试图给Win API函数传递一个不存在的参数将会出现一个Access violation错误。解决此类Access violation错误的最好方法是查阅Win API帮助，看看这个API函数调用的参数信息以及参数类型。例如，总是保证不给一个缓冲参数传递一个无效指针

3. 让Delphi释放

当一个对象拥有另一个对象时，让它给你做删除工作。因为默认情况下，所有的窗体（自动创建的）都属于Application对象。当一个应用程序结束时，它释放了Application对象，也就释放了所有窗体。例如，如果你在程序开始时自动创建了两个窗体（Form1/Unit1和Form2/Unit2），下面的代码就会导致Access violation错误的出现：

unit Unit1;

...

uses unit2;

...

procedure TForm1.Call_Form2

begin

Form2.ShowModal;

Form2.Free;

//Access violation错误将会出现

Form2.ShowModal;

end;

4. 杀死异常

永远不要破坏临时异常对象（E），处理一个异常会自动释放异常对象。如果你自己手动释放了异常对象，程序会试图再次释放它，那么就会出现Access violation错误：

Zero:=0;

try

dummy:= 10 / Zero;

except

on E: EZeroDivide do

MessageDlg(’不能用0做除数!’,mtError, [mbOK], 0);

E.free. ////Access violation错误将会出现

end;

5. 检索一个空字符串

一个空字符串是没有任何数据的。就是说，检索一个空字符串相当于访问一个不存在的对象，这将导致Access violation错误：

var s: string;

begin

s:=’’;

s[1]:=’a’;

//Access violation错误将会出现

end;

6. 直接引用指针

你必须间接引用指针，否则你会改变指针地址并可能会破坏其他存储单元：

procedure TForm1.Button1Click(Sender: TObject);

var

p1 : pointer;

p2 : pointer;

begin

GetMem(p1, 128);

GetMem(p2, 128);

//下一行导致Access violation错误

Move(p1, p2, 128);

//下一行方法正确

Move(p1^, p2^, 128);

FreeMem(p1, 128); [Page]

FreeMem(p2, 128);

end;

这些就是我对运行期Access Violation错误的全部建议，我希望你们也能对你们程序出现的Access Violation错误提出一些看法。

老猫点评：相信所有读者都遇到过“Access violation” 的错误，如果不是自己的程序，我们有很多人就把责任都推在Bill Gates的头上。如果你自己的程序出现了这个尴尬的错误，面对用户的询问，我们该如何解释？本文就是最好的答案。

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航