编辑type library返回布尔类型是哪个？

Question

编辑type library返回布尔类型是哪个？  function IfExists(const sqlstr: WideString): Byte; safecall;我写一个boolean* 结果是Byte 类型

Answer 1

定义成OleVariant！function XXX:OleVariant;
begin
  result:='False'
end;

Answer 2

终于有个人回答了，呵。。谢谢啊
我在HELP里面找到了一个VARIANT_BOOL* 不知道对与否，先这样写了Valid types
------------------
TDateTime DATE VT_DATE Yes date
WideString BSTR VT_BSTR Yes binary string
IDispatch IDispatch VT_DISPATCH Yes pointer to IDispatch interface
SCODE SCODE VT_ERROR Yes Ole Error Code
WordBool VARIANT_BOOL VT_BOOL Yes True = -1, False = 0
OleVariant VARIANT VT_VARIANT Yes Ole Variant
IUnknown IUnknown VT_UNKNOWN Yes pointer to IUnknown interface
Shortint byte VT_I1 No 1 byte signed integer
Byte unsigned char VT_UI1 Yes 1 byte unsigned integer
Word unsigned short VT_UI2 Yes* 2 byte unsigned integer
LongWord unsigned long VT_UI4 Yes*  4 byte unsigned integer
Int64 __int64 VT_I8 No 8 byte signed integer
Largeuint uint64 VT_UI8 No 8 byte unsigned integer
SYSINT int VT_INT Yes*  system dependent integer (Win32=Integer)
SYSUINT unsigned int VT_UINT Yes*  system dependent unsigned integer
HResult HRESULT VT_HRESULT No 32 bit error code[code=Delphi(Pascal)]
Pointer VT_PTR -> VT_VOID No untyped pointer
SafeArray SAFEARRAY VT_SAFEARRAY No OLE Safe Array
PChar LPSTR VT_LPSTR No pointer to Char
PWideChar LPWSTR VT_LPWSTR No pointer to WideChar[/code]

Answer 3

function IfExists(const sqlstr: WideString): WordBool; safecall;最后是这个样子的