Delphi 3 内存分配问题

Question

我一定错过了一些相当容易的事情吗？我正在尝试在 Delphi 3 应用程序中创建一个链表。

这是通过 ItemList 和 Item 两个类实现的。 ItemList 在表单创建时被实例化。它在表单的生命周期内持续存在。每个 Item 对象都根据需要进行实例化。该表单有一个名为AddAcc 的函数。 AddAcc 通过表单控件之一的 on-change 事件调用。

在这个 on-change 事件期间会发生什么：

1. AddAcc 被调用
2. AddAcc 创建一个新的Item 对象
3. AccAdd 调用 ItemList.AddItem 并通过引用传递 Item
4. AddItem 将 Item 对象放在列表的尾部

我已经测试过 AddItem 并且效果很好。我的问题是每次调用 *AddAcc* 时都会获得相同的内存位置。我尝试了不同的方法来创建一个新的 Item 对象。我使用了 New、GetMem (w/FillChar)，并实例化了一个 Item 类型的局部变量。所有对 AddAcc 的调用都会获得相同的内存位置。

我已将 Item 对象直接（通过引用）传递给 AddItem，或者将指针传递给 Item 对象。

我认为在链接列表中对 Item 对象实例的引用（指针）将确保 Item 的内存位置得到维护。但是，一旦退出 AddAcc 类，它似乎就会被收集。

FUNCTION AddAcc;

Var

     accItem : ptrItem;

BEGIN

    GetMem(accItem, sizeOf(Item));

    FillChar(accItem^, sizeof(Item), 0);

    ItemList.AddItem(accItem^);

End;



Procedure TItemList.AddItem(Var newItem : TAccessoryItem);

begin
   Inc(_count);

   // add first item to the list            
    If (_count = 1) Then 
    begin       

          _fifoHead := @newItem;
          _tail := @newItem;
          newItem.Next   := @_tail;
          newItem.Previous := @_fifoHead;
          exit;

    end;

     _tail^.Next := @newItem;  
     newItem.Previous := _tail^;
     mewItem.Next := @_tail;
     _tail := @newItem;         
end;

非常感谢任何帮助。

Answer 1

这是我如何编写一个链表：

type
  PItem = ^TItem;
  TItem = record
    Next: PItem;
    Data: Integer;
  end;

procedure Add(var First: PItem; Data: Integer);
var
  NewItem: PItem;
begin
  New(NewItem);
  NewItem.Next := First;
  NewItem.Data := Data;
  First := NewItem;
end;

...

var
  First: PItem;
begin
  First := nil;
  Add(First, 42);
  //etc.
end;

当您需要解除分配列表时，请执行以下操作：

var
  Item: PItem;
begin
  while Assigned(First) do begin
    Item := First;
    First := Item.Next;
    Dispose(Item);
  end;
end;

我相信这是用 Pascal 编写链表类型代码的规范方式。

我特意为这个可以想象的最简单的链表编写了这段代码。这使您可以专注于分配、指针的使用等。您似乎已经知道如何在更复杂的列表中维护引用，因此我相信您可以轻松地根据需要调整这种代码风格。