2

在 Delphi 中,我想确定是否可以将特定的 OleVariant 转换为特定的数据类型,如果不能,则不会引发异常。异常不适用于程序流程,对吗?

我想要的是这样的,其中 Type 可以是 OleVariant 支持的任何东西:

if TryVarAsType(variant, value) then ...

想要的是

try
  value := Type(variant);
  // case where the variant could be converted to a Type
except
  // case where the variant could not be converted to a Type
end;

变量无法转换为布尔值的情况只是经常发生的正常情况,并不表示任何类型的错误。

4

2 回答 2

3

您可以使用该函数构造这样的VariantChangeTypeEx函数。

uses
  VarUtils,
  Variants;

function TryVarAsType( AVariant : OleVariant; const AVarType: TVarType ) :Boolean;
var
   SourceType: TVarType;
begin
  SourceType:=TVarData(AVariant).VType;
  //the types are ole compatible
  if (AVarType and varTypeMask < varInt64) and (SourceType and varTypeMask < varInt64) then
    Result:=
    (SourceType=AVarType) or
    (VariantChangeTypeEx(TVarData(AVariant), TVarData(AVariant), VAR_LOCALE_USER_DEFAULT, 0, AVarType)=VAR_OK)
  else
  Result:=False; //Here you must process the variant pascal types like varString
end;

并像这样使用

TryVarAsType('1',varInteger);
TryVarAsType('s',varInteger)

这仅适用于与 ole 兼容的 Variant 类型

  varEmpty    = $0000; { vt_empty        0 }
  varNull     = $0001; { vt_null         1 }
  varSmallint = $0002; { vt_i2           2 }
  varInteger  = $0003; { vt_i4           3 }
  varSingle   = $0004; { vt_r4           4 }
  varDouble   = $0005; { vt_r8           5 }
  varCurrency = $0006; { vt_cy           6 }
  varDate     = $0007; { vt_date         7 }
  varOleStr   = $0008; { vt_bstr         8 }
  varDispatch = $0009; { vt_dispatch     9 }
  varError    = $000A; { vt_error       10 }
  varBoolean  = $000B; { vt_bool        11 }
  varVariant  = $000C; { vt_variant     12 }
  varUnknown  = $000D; { vt_unknown     13 }
  varShortInt = $0010; { vt_i1          16 }
  varByte     = $0011; { vt_ui1         17 }
  varWord     = $0012; { vt_ui2         18 }
  varLongWord = $0013; { vt_ui4         19 }
  varInt64    = $0014; { vt_i8          20 }

对于其他类型(pascal 变体)varStringvarAny您必须检查源和目标TVarType并编写自己的测试用例。

更新

正如@David 指出的那样,语言环境设置可以为相同的值产生不同的结果,因此您必须将此答案视为构建您自己的函数的初始步骤或提示,并且您必须了解在提议的函数中引起的语言环境设置问题。

于 2011-03-03T18:04:10.743 回答
2

我不知道内置支持会允许动态转换检查失败并出现错误代码而不是异常。

您可以自己手动编码,但这样做会在 Variants 单元中产生大量无法容忍的重复代码。在这种情况下,我认为使用异常不如复制依赖于实现的代码的替代方法那么糟糕。


作为 RRUZ 最巧妙答案的反例,我提供以下代码:

procedure Main;
var
  v: Variant;
  i: Integer;
  CanConvert: Boolean;
begin
  v := '$1';

  Writeln(BoolToStr(TryVarAsType(v, varInteger), True));

  try
    i := Integer(v);
    if i>0 then begin
      CanConvert := True;
    end;
  except
    CanConvert := False;
  end;
  Writeln(BoolToStr(CanConvert, True));
end;

输出:

False
True
于 2011-03-03T17:36:07.453 回答