キーが存在していてもTDictionary.ContainsKeyがfalseを返す

Question

私が直面している問題は、全くプログラミングが理解できないように感じました。私はTDictionaryのオブジェクトを持っていて、それはTDate => TEvent (custom class)のペアから成っています。オブジェクトは、2つの別々のアプリケーションによって共有されるクラスで使用されます（通信しません）。あるアプリケーションでは、次のコードが正しく動作します。

// Get recipes from the very event. 
    Tmp := FCalendar.ContainsKey(D); 
    if (Tmp) then 
    begin 
    E := FCalendar[D]; 
    CopyRecipes(E); 
    end; 

一方、同じコードは他のアプリケーションでは機能しません。そんなことがあるものか？私は、デバッガで何が起こっているかのスクリーンショットを添付している：

あなたが見ることができるように、キーが辞書に存在し、まだContainsKey()リターンFALSE。

この原因は何ですか？

よろしく、 Patryk。 Dでの可能性

Answer 1

理由はTDateが実際にちょうどTDateTimeであるということです。つまり、デルファイ時代からの日数を保持する倍精度値です。 TDateのIDEデバッグヒントは日付部分のみを表示し、時刻部分は省略します。あなたは平等と同じ日の2つの値を比較していますが、異なる時間要素を持つことは同じではありません。

を日付時刻の時間部分を削除するDateOfを使用して問題を解決する：ここで説明するスクリーンショットです。日付値を受け取ったときはいつでも、辞書に追加する前に明確にDateOfを使用する必要があります。

Answer 2

ない2011-11-11 おそらくD：= 2011-11-11 00-00-00