delphi - Delphi XE2中的模拟方法FieldByName

Question

我正在开发一个类并尝试模拟其中包含的数据集（TTable）。

在为数据集创建接口之后，我开始开发方法 FieldByname 的模拟：

type
  IDataSet = interface
  ...
    function FieldByName(const Name: string): TField;
  ...
  end;

  TMockDataSet = class(TInterfacedObject, IDataSet)
    ...
    function FieldByName(const Name: string): TField;
    ...
  end;

我尝试了以下实现，但它给了我一个运行时错误。

 function TMockDataSet.FieldByName(const Name: string): TField;
  var
    f: TCurrencyField;
  begin
    f := TCurrencyField.Create(nil);
    f.AsCurrency := 1; // runtime error
    result := f;
  end;

有谁知道如何解决这个问题？