exceptionclass.pas

含此文档只表示此压缩包来自于DELPHI盒子网站 ------------------------------------------------------------------------

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   clsinherit.pas
//  Creator     :   Shen Min
//  Date        :   2002-2-10
//  Comment     :   Exception Class Demo for <<delphi after high hand>>
//
//
////////////////////////////////////////////////////////////////////////////////

unit ExceptionClass;

interface

uses SysUtils, Dialogs;

type
    EFileOpenFailed = class(Exception)
    public
        procedure Warning; virtual; abstract;
    end;

    EFileNotFound = class(EFileOpenFailed)
    public
        procedure Warning; override;
    end;

    EFileFormatErr = class(EFileOpenFailed)
    public
        procedure Warning; override;
    end;

implementation

{ EFileNotFound }

procedure EFileNotFound.Warning;
begin
    ShowMessage('真是不可思议，竟然找不到文件！');
end;

{ EFileFormatErr }

procedure EFileFormatErr.Warning;
begin
    ShowMessage('更不可思议的是，文件格式不对！');
end;

end.