delphi下用assert来完成错误的捕捉

最新推荐文章于 2024-08-15 12:00:00 发布

mrpan09

最新推荐文章于 2024-08-15 12:00:00 发布

阅读量611

点赞数

分类专栏： Delphi学习文章标签： delphi integer string output windows file

本文链接：https://blog.csdn.net/mrpan09/article/details/4409118

版权

在Delphi中，Assert过程用于在程序中进行错误检查。当条件expr不满足时，会触发错误处理。通过定义AssertErrorProc全局变量，可以自定义错误处理方式。示例中展示了如何创建一个简单的LogAssert过程，记录错误信息到控制台或消息框，并在程序初始化和最终化时切换回默认的错误处理。在调试阶段，可以通过编译器选项{$ASSERTIONS ON/OFF}控制Assert的启用或禁用。

摘要由CSDN通过智能技术生成

Assert 过程原形
[code]procedure Assert (expr :Boolean [; const msg: string]);[/code]
在system.pas 里 Assert 的实现是:

procedure _Assert(const Message, Filename: AnsiString; LineNumber: Integer);
{$IFDEF PUREPASCAL}
begin
if Assigned(AssertErrorProc) then
    AssertErrorProc(Message, Filename, LineNumber, Pointer(-1))
else
    Error(reAssertionFailed); // loses return address
end;
{$ELSE}
asm
        PUSH    EBX
{$IFDEF PIC}
        PUSH    EAX
        PUSH    ECX
        CALL    GetGOT
        MOV     EBX, EAX
        MOV     EAX, [EBX].AssertErrorProc
        CMP     [EAX], 0
        POP     ECX
        POP     EAX
{$ELSE}
        CMP     AssertErrorProc,0
{$ENDIF}
        JNZ     @@1
        MOV     AL,reAssertionFailed
        CALL    Error
        JMP     @@exit
@@1:    PUSH    [ESP+4].Pointer
{$IFDE