Comment tester une variable de type générique pour l'égalité avec Default (T) dans Delphi?

Question

Je suis en train d'écrire un accesseur de propriété en cache générique comme ce qui suit, mais je reçois une erreur de compilation lorsque vous essayez de vérifier si la variable de stockage contient déjà une valeur:

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; 

L'erreur que je reçois est " E2015 Opérateur non applicable à ce type d'opérande ".

Est-ce que je dois mettre une contrainte sur T pour faire ce travail? Le fichier d'aide indique que Default() accepterait tout sauf les types génériques. Dans mon cas, je traite principalement avec des types simples comme String, Integer et TDateTime.

Ou est-il une autre fonction de bibliothèque pour effectuer cette vérification particulière?

J'utilise Delphi 2009 dans l'affaire qui compte.

---

PS: Juste au cas où il ne ressort pas du code ce que je suis en train de faire: Dans mon cas, la détermination des valeurs de propriété réelle peut prendre un certain temps pour diverses raisons et parfois je pourrais même pas besoin eux du tout. Du côté positif, cependant, les valeurs sont constantes, donc je veux seulement appeler le code qui détermine la valeur réelle la première fois que cette propriété est accédée, puis stocker la valeur dans un champ de classe et la prochaine fois que cette propriété est retournée. directement. Voici un exemple de la façon dont j'espérais pouvoir utiliser ce code:

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; 

(de toute évidence, il y a plus d'une propriété)

Answer 1

Après une touche dans les commentaires de Binis et creuser autour d'un peu Generics.Collections je suis venu avec ce qui suit, qui semble fonctionner comme je le voulais :

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

Le problème n'est pas la fonction Default, mais l'opérateur d'égalité = .

Vous pouvez limiter T-IEquatable et utiliser la méthode Equals comme ceci:

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

Comme je comprends les choses, il semble que tu veux faire une sorte de fonctionnalité memoize. Si tel est le cas de lire cet article

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