Delphiのバリアントが空の文字列かどうかを確認するには？

Question

バリアントはいつも楽しいですね。

私はDelphi XEに移行するために、D2007の最後のレガシーアプリケーションを開発中です。

暫定的に変種がかなり変更されました。

このコード行：

if (VarType(Value) = varString) and (Value = '') then 
    Exit; 

はtrueを返しとD2007に終了したが、デルファイXEではありません。

私はこれまで、それを変更した：

if VarIsStr(Value) and (VarToStr(Value) = '') then 
    Exit; 

私は、これは行くための「最良」の方法です確信していません。 Variantsユニットには、これを行うための特定の呼び出しがありません。これは過去の人々の問題であることは確かです。しかし、検索ではライブラリー機能やその他の承認された方法は明らかにされていません。

"正しい"またはより良い方法はありますか？

Answer 1

更新日：文字列固有の例外を避けるために：

if VarIsStr(Value) and (Length(VarToStr(v))=0) then ... 

Update3とを：あなたはより良いパフォーマンスとより少ない文字列のヒープメモリの浪費をしたい場合は、これを試してみてください。 文字列の長さが64Kであるとします。上のコードはVarToStrを実行し、おそらく64 KBのUnicodeStringヒープ領域を確保してデータを保持しています。ちょうどBSTRの文字列の終わりにnulターミネータを、他の型のnil-pointerを探すことができます。

以下のコードは一般的にバリアントの内部表現には届かないという点で少し奇妙ですが、Davidはバグを指摘し、再検証して動作しますが、保証は表示されませんまたは暗示される。この子犬の単体テストは良いでしょう。将来、Delphi RTLの神がVariant構造体フィールドの内部表現の名前を変更することに決めた場合、以下のコードを変更する必要があります。

function VarStrEmpty(v:Variant):Boolean; 
var 
    data:PVarData; 
begin 
    data := FindVarData(V); 
    case data^.VType of 
    varOleStr: 
      result := (data^.VOleStr^=#0); 
    varString: 
      result := (data^.VString=nil); 
    varUString: 
      result := (data^.VUString=nil); 
    else 
     result := false; 
    end; 
end; 

Answer 2

VarIsStrは完全に考えられる方法です。あなたが見ているの変化が本当に原因UnicodeのD2009の変化ではなく、亜種への変更に、当然のことながら、ある

function VarTypeIsStr(const AVarType: TVarType): Boolean; 
begin 
    Result := (AVarType = varOleStr) or (AVarType = varString) 
    or (AVarType = varUString); 
end; 

function VarIsStr(const V: Variant): Boolean; 
begin 
    Result := VarTypeIsStr(FindVarData(V)^.VType); 
end; 

：これは、次のように実装されています。文字列はvarUString、別名UnicodeStringとなります。もちろん、VarIsStrもAnsiString/varStringとWideString/BSTR/varOleStrを選択します。

あなたのDelphi 2007のコードの真の忠実な変換をしたいなら、あなたが書くでしょう：

if (VarType(Value) = varUString) and (Value = '') then 
    Exit; 

正確にあなたが何をする必要があるか、あなただけが知っていることができますが、重要なのは、あなたが考慮しなければならないということです新しく到着したのはvarUStringです。

Answer 3

バリアントには、数値または文字列を使用できます。

バリアント（数値）が負の値（-15）のときに問題が発生する可能性があります。

また、あなたのライン

(VarType(Value) = varString) and (Value = '') 

私はいつも()

((VarType(Value) = varString) and (Value = '')) 

Answer 4

if VarToStrDef(value, '') = '' then 

が私のためにトリックをい配置する必要があります。