7

我正在尝试编写如下所示的通用缓存属性访问器，但在尝试检查存储变量是否已包含值时出现编译器错误：

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;

我得到的错误是“E2015 运算符不适用于此操作数类型”。

我是否必须限制T才能完成这项工作？帮助文件说它Default()可以接受除泛型类型之外的任何东西。就我而言，我主要处理简单的类型，如String,Integer和TDateTime.

或者是否有其他一些库函数来执行这个特定的检查？

我正在使用 Delphi 2009 以防万一。

PS：以防万一从代码中不清楚我要做什么：在我的情况下，由于各种原因，确定实际属性值可能需要一段时间，有时我什至可能根本不需要它们。但是从好的方面来说，这些值是恒定的，所以我只想在第一次访问该属性时调用确定实际值的代码，然后将该值存储在类字段中，下次访问该属性时返回缓存的值直接地。这是我希望如何使用该代码的示例：

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;

（显然，不止一个属性）

4

2 回答 2

12

在 Binis 的评论中暗示并在 Generics.Collections 中进行了一些挖掘之后，我想出了以下内容，它似乎可以按我的意愿工作：

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;
于 2009-11-23T21:59:16.800 回答
0

问题不在于Default函数，而在于相等运算符=。

您可以约束T并IEquatable使用如下Equals方法：

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;
于 2009-11-23T11:10:08.617 回答