unit UErrorHandle; interface uses SysUtils,Messages,Dialogs, classes; type ESPCError = class(Exception) private FItems: TStringList; FCategory: Byte; ErrKind:integer; //錯誤訊息種類 Messagekind:string; //訊息顯示種類 protected public constructor Create(MsgM:string); //1 : Error , 2 : History destructor Destroy; override; *1 procedure ErrKindCtrl(Err:integer,Msg1:string); end; implementation { ESPCError } constructor ESPCError.Create(MsgM:string); begin messagekind:=MsgM; end; destructor ESPCError.Destroy; begin FItems.Free; inherited; end; *2 procedure ESPCError.ErrKindCtrl(Err:integer,Msg1:string); begin SHOWMESSAGE(msg); showmessage(inttostr(err)); end; end. *1 [Error] UErrorHandle.pas(34): ';', ')' or '=' expected but ',' found *2 [Error] UErrorHandle.pas(60): ';', ')' or '=' expected but ',' found

procedure ErrKindCtrl(Err:integer;Msg1:string); end; //.................... procedure ESPCError.ErrKindCtrl(Err:integer;Msg1:string); begin SHOWMESSAGE(Msg1); showmessage(inttostr(err)); end; end. ~悠遊法國號~ 發表人 - yachanga 於 2004/04/05 16:47:36