¿Cómo puedo probar una variable de tipo genérico para igualdad con Predeterminado (T) en Delphi?

Question

estoy tratando de escribir una propiedad de acceso en caché genérico como el siguiente, pero estoy recibiendo un error de compilación cuando se trata de comprobar si la variable de almacenamiento ya contiene un valor:

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; 

El error que estoy recibiendo es " Operador E2015 no aplicable a este tipo de operando ".

¿Debo poner una restricción en T para que funcione? El archivo de ayuda dice que Default() aceptaría cualquier cosa excepto los tipos genéricos. En mi caso, trato principalmente con tipos simples como String, Integer y TDateTime.

¿O hay alguna otra función de biblioteca para realizar esta comprobación en particular?

Estoy usando Delphi 2009 en caso de que eso importe.

---

PD: Sólo en caso de que no está claro a partir del código de lo que estoy tratando de hacer: En mi caso, la determinación de los valores de las propiedades reales podría tomar un tiempo, por diversas razones ya veces ni siquiera podría necesitar ellos en absoluto. Sin embargo, los valores son constantes, así que solo quiero llamar al código que determina el valor real la primera vez que se accede a esa propiedad y luego almacenar el valor en un campo de clase y la próxima vez que se acceda a esa propiedad devuelva el valor almacenado directamente. Aquí está un ejemplo de cómo Tenía la esperanza de ser capaz de utilizar ese código:

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; 

(obviamente, no hay más que una sola propiedad)

Answer 1

Después de una insinuación en los comentarios de Binis y escarbar un poco en Generics.Collections me ocurrió lo siguiente, que parece funcionar igual que lo quería :

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

El problema no es la función Default, pero el operador de igualdad = .

Se podría limitar T-IEquatable y utilizar el método Equals así:

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

Según entiendo las cosas parece que quieres hacer algún tipo de funcionalidad memoize. Si este es el caso que acabamos de leer este artículo

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