Wie teste ich eine generische Typvariable für Gleichheit mit Default (T) in Delphi?

Question

Ich versuche, eine generische gecached Eigenschaftenaccessor wie folgt zu schreiben, aber einen Compiler-Fehler bin immer wenn, ob die Speichergröße einen Wert enthält bereits zu überprüfen versuchen:

function TMyClass.GetProp<T>(var ADataValue: T; const ARetriever: TFunc<T>): T; 
begin 
    if ADataValue = Default(T) then // <-- compiler error on this line 
    ADataValue := ARetriever(); 
    Result := ADataValue; 
end; 

Der Fehler Ich erhalte ist " E2015 Operator nicht anwendbar auf diesen Operandentyp ".

Muss ich eine Einschränkung auf T setzen, damit dies funktioniert? Die Hilfedatei sagt, dass Default() alles außer generische Typen akzeptieren würde. In meinem Fall habe ich es hauptsächlich mit einfachen Typen wie String, Integer und TDateTime zu tun.

Oder gibt es eine andere Bibliotheksfunktion, um diese spezielle Prüfung durchzuführen?

Ich benutze Delphi 2009, falls das wichtig ist.

---

PS: Nur für den Fall ist es aus dem Code nicht klar, was ich zu tun werde versuchen: In meinem Fall der tatsächlichen Eigenschaftswerte bestimmen, könnte eine Weile aus verschiedenen Gründen nehmen und manchmal könnte ich nicht einmal brauchen sie überhaupt. Auf der positiven Seite jedoch sind die Werte konstant, so dass ich nur den Code aufrufen möchte, der den tatsächlichen Wert beim ersten Zugriff auf die Eigenschaft bestimmt, und dann den Wert in einem Klassenfeld speichern und beim nächsten Zugriff auf die Eigenschaft den zwischengespeicherten Wert zurückgeben direkt. Hier ist ein Beispiel dafür, wie ich hoffte, ich wäre in der Lage diesen Code zu verwenden:

type 
    TMyClass = class 
    private 
    FSomeProp: String; 
    function GetSomeProp: String; 

    function GetProp<T>(var ADataValue: T; const ARetriever: TFunc<T>): T; 
    public 
    property SomeProp read GetSomeProp; 
    end; 

function GetSomeProp: String; 
begin 
    Result := GetProp<String>(FSomeProp, 
          function: String 
          begin 
           Result := SomeSlowOrExpensiveCalculation; 
          end); 
end; 

(natürlich gibt es mehr als nur eine Eigenschaft)

Answer 1

Nach einem Hinweis in den Kommentaren von Binis und Graben um ein wenig in Generics.Collections kam ich mit dem folgenden auf die so wie ich es wollte, scheint zu funktionieren :

function TMyClass.GetProp<T>(var ADataValue: T; const ARetriever: TFunc<T>): T; 
var 
    lComparer: IEqualityComparer<T>; 
begin 
    lComparer := TEqualityComparer<T>.Default; 
    if lComparer.Equals(ADataValue, Default(T)) then 
    ADataValue := ARetriever(); 
    Result := ADataValue; 
end; 

Answer 2

Das Problem ist nicht die Default Funktion, aber die Gleichheitsoperator = .

Sie könnten T-IEquatable beschränken und die Equals Methode wie folgt verwenden:

TMyClass = class 
    function GetProp<T : IEquatable<T>>(var ADataValue: T; const ARetriever: 
end; 
... 
function TMyClass.GetProp<T>(var ADataValue: T; const ARetriever: TFunc<T>): T; 
begin 
if ADataValue.Equals (Default(T)) then 
    ADataValue := ARetriever(); 
Result := ADataValue; 
end; 

Answer 3

Wie ich die Dinge verstehen, es sieht aus wie u irgendeine Art von memoize Funktionalität machen wollen. Wenn dies der Fall liest gerade diesen Artikel

http://blogs.teamb.com/craigstuntz/2008/10/01/37839/