Question

我有点疯狂（唱着女王的歌）关于Generic Containers（TList）的记录。首先，请参阅此代码：

  TItemRec = record
  private
    FSender    : TAction;
    FOwnerPack : HModule;
    FDockPanel : TdxDockPanel;
    procedure SetDockPanel(const Value: TdxDockPanel);
    procedure SetOwnerPack(const Value: HModule);
    procedure SetSender(const Value: TAction);
  public
    property Sender: TAction read FSender write SetSender;
    property OwnerPack: HModule read FOwnerPack write SetOwnerPack;
    property DockPanel: TdxDockPanel read FDockPanel write SetDockPanel;
  end;

  TPackRec = record
  private
    FHandle  : HModule;
    var FCounter : Int16;
    procedure SetCounter(const Value: Int16);
    procedure SetHandle(const Value: HModule);
  public
    property Handle: HModule read FHandle write SetHandle;
    property Counter: Int16 read FCounter write SetCounter;
    procedure ChangeCounter(IncValue: Boolean = True);
  end;

  TRecList = class(TList<TItemRec>)
  public
    procedure CloseDockPanels;
  end;

  TPackList = class(TList<TPackRec>)
  strict private
    procedure DoChanges(const APack: HModule; const AAdd: Boolean = True);
  public
    procedure CheckForUnusedItems;
    procedure AppendRef(const APack: HModule);
    procedure DeleteRef(const APack: HModule);
    procedure ClosePackages;
  end;

  TfrmMain = class(TForm)
  private
    FRecList  : TRecList;
    FPackList : TPackList;
  public
  end;

........................

procedure TPackList.CheckForUnusedItems;
var
  i : Int16;
  Flag : Boolean;
begin
  repeat
    Flag:= False;
    if Self.Count > 0 then begin
      for i:= Self.Count - 1 downto 0 do begin
        Flag:= Self.Items[i].FCounter > 0;
        if not Flag then begin
          Self.Delete(i);
          Flag:= True;
          Break;
        end;
        Flag:= False;
      end;
    end;
  until not Flag;
end;

procedure TPackRec.ChangeCounter(IncValue: Boolean);
var
  Value : Int16;
begin
  Value:= Counter;
  if IncValue then
    Value:= Value + 1
  else
    Value:= Value - 1;
  Counter:= Value;
end;

尝试更改计数器属性的值时出现严重问题，该属性是唯一具有更改值的项目。 ChangeCounter方法应该改变Counter的值，显然已经完成了，但是对于CheckForUnusedItems方法没有改变，我几乎尝试了所有东西，但似乎每个TPackList和TRecList都是常量。我给你看一些照片：

项目已成功添加

FRecList项目已删除

ChangeCounter方法更改了Counter

的值

CheckForUnusedItems方法看不到任何更改

Counter属性将其值保持为常量

发生了什么事？对此有解释吗？我怎么解决呢？提前谢谢。

Answer 1

TList的默认索引器属性返回容器内值的副本;然后你在该副本上调用ChangeCounter，它会更改该副本的字段。容器内的原始项目没有变化。如果你希望它工作，你必须将它存储在本地，调用该本地的任何变异方法，然后将本地存储回容器，覆盖旧值。

这适用于除数组之外的任何容器，因为没有办法“按引用返回”，因此对返回值的进一步变异操作会反映在容器本身中。

Answer 2

好的，首先，你不需要在FCounter之前使用var，但它不会造成任何伤害。

接下来，因为ChangeCounter是包含值FCounter的记录的方法，为什么不使用：

procedure TPackRec.ChangeCounter(IncValue: Boolean);
begin
  if IncValue then
    Inc(FCounter)
  else
    Dec(FCounter);
end;

如果愿意，您甚至可以添加溢出/下溢检查。

记录中的属性存在一些问题。特别是如果记录由函数返回。将记录分配给局部变量可以解决此问题。

Delphi中的记录和通用容器

2 个答案: