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互換のバリアントタイプでのみ機能します

  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 }

のような他のタイプ（パスカルバリアント）のvarString場合varAnyは、ソースと宛先を確認し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 に答える