{------------------------------------------------------------------------------} { Unit Name: ErrorHeader Purpose : To give the types for C-like interface to kerros Author : Vesa Lappalainen Date : 07.08.00 Changed : ToDo : } {------------------------------------------------------------------------------} unit ErrorHeader; interface type TPCRegisterError = function (var etype:Pointer;const sc,expl:PChar; err,show,log:boolean):boolean; stdcall; TPAddCError = procedure (etype:Pointer;const s:PChar); stdcall; implementation end.