delphi - 编写通用的 TList 记录

Question

我正在尝试编写一个包含特定类型记录的通用 TList。从大卫对此的回答开始question ，我写了这个类:

Type
  TMERecordList<T> = Class(TList<T>)
  Public Type
    P = ^T;
  Private
    Function GetItem(Index: Integer): P;
  Public
    Procedure Assign(Source: TMERecordList<T>); Virtual;
    Function First: P; Inline;
    Function Last: P; Inline;
    Property Items[Index: Integer]: P Read GetItem;
  End;

Procedure TMERecordList<T>.Assign(Source: TMERecordList<T>);
Var
  SrcItem: T;
Begin
  Clear;
  For SrcItem In Source Do
    Add(SrcItem);
End;

Function TMERecordList<T>.First: P;
Begin
  Result := Items[0];
End;

Function TMERecordList<T>.GetItem(Index: Integer): P;
Begin
  If (Index < 0) Or (Index >= Count) Then
    Raise EArgumentOutOfRangeException.CreateRes(@SArgumentOutOfRange);
  Result := @List[Index];
End;

Function TMERecordList<T>.Last: P;
Begin
  Result := Items[Count - 1];
End;

拥有返回指向记录的指针的方法效果很好(不是完美)，因为在大多数用例中，指向记录的指针可以像记录一样使用。使用带有属性和 setter 的记录，这些测试用例按预期工作:

  TMETestRecord = Record
  Private
    FID:     Word;
    FText:   String;
    FValues: TIntegers;
    Procedure SetID(Const Value: Word);
    Procedure SetText(Const Value: String);
    Procedure SetValues(Const Value: TIntegers);
  Public
    Property ID: Word Read FID Write SetID;
    Property Text: String Read FText Write SetText;
    Property Values: TIntegers Read FValues Write SetValues;
  End;

  // TestSetItem1
  rl2[0] := rl1[0];

  // TestSetItem2
  r.ID     := 9;
  r.Text   := 'XXXX';
  r.Values := [9, 99, 999, 9999];
  rl1[0]   := r;

  // TestAssignEmpty (rl0 is empty... after assign so should rl2)
  rl2.Assign(rl0);

  // TestAssignDeepCopies (modifications after assign should not affect both records)
  rl2.Assign(rl1);
  r.ID     := 9;
  r.Text   := 'XXXX';
  r.Values := [9, 99, 999, 9999];
  rl1[0]   := r;

问题 1 - 修改包含的记录

...此测试用例编译并运行，但未按预期工作:

  // TestSetItemFields
  rl1[0].ID     := 9;
  rl1[0].Text   := 'XXXX';
  rl1[0].Values := [9, 99, 999, 9999];

修改应用于记录的临时副本，而不是存储在列表中的记录。我知道这是一种已知且预期的行为，如其他问题中所述。

但是...有办法解决吗？我在想，如果 TMERecordList<>.Items 属性有一个 setter ，编译器也许可以做实际需要的事情。可以吗？我知道大卫已经找到了解决方案，正如 question 中所暗示的那样。 ...但我似乎无法自己找到它。

如果有这个就太好了，因为它允许我使用与对象 TList 相同(或几乎)的列表。拥有相同的界面意味着我可以在需要时轻松地从对象更改为记录，反之亦然。

问题 2 - 界面歧义

让 TList<> 返回记录指针确实会带来一些接口(interface)歧义问题。一些 TList<> 方法接受 T 参数，我们知道作为记录，这些参数将按值传递。那么这些方法应该做什么呢？我应该重新考虑它们吗？我正在具体讨论这组方法:

• 删除并删除项目
• 提取和提取项目
• 包含 IndexOf、IndexOfItem 和 LastIndexOf

关于如何测试包含的项目以查看它们是否与参数记录值匹配，存在一些模糊性。该列表很可能包含相同的记录，这可能成为用户代码中的错误来源。

我尝试不从 TList<> 派生它，以免拥有这些方法，但结果很困惑。如果不编写自己的 TListHelper，我就无法编写类似于 TList 的类。不幸的是，System.Generics.Collections 有一些必需的私有(private)字段，例如 FCount，并且不能在单元外部使用。

Answer 1

问题1

您的 Items 属性未标记为默认属性。因此，您的错误代码正在选择基类默认属性。添加default您的 Items 属性的关键字:

property Items[Index: Integer]: P read GetItem; default;

问题2

这实际上是源自 TList<T> 的结果。我不建议这样做。封装TList<T>的实例因此显式定义接口(interface)而不是继承它。或者直接在代码中实现列表功能。毕竟，它只不过是动态数组的包装器。

就其值(value)而言，我的类(class)不使用 TList<T>当 Emba 在最近发布的版本中打破常规时，我对这个决定感到非常高兴。