德爾福3內存分配問題

Question

我必須錯過一些相當簡單的東西嗎？我試圖在Delphi 3應用程序中創建一個鏈表。

這是通過兩個類別項目列表和項目。 ItemList在表單創建時實例化。它堅持一生的形式。每個項目對象根據需要被實例化。該表格有一個稱爲AddAcc的功能。 AddAcc通過窗體控件之一的on-change事件調用。

本上改變事件中會發生什麼：

1. AddAcc叫
2. AddAcc創建一個新的項目對象
3. AccAdd電話ItemList.AddItem和商品通過參考
個
4. 的AddItem地方項目在

我測試過的AddItem和它運作良好列表的尾部對象。我的問題是，每次* AddAcc *被調用它獲得相同的內存位置。我試過用不同的方法創建一個新的項目對象。我使用了New，GetMem（w/FillChar），並實例化了一個Item類型的局部變量。所有對AddAcc的調用都會導致獲得相同的內存位置。

我直接傳遞的項目對象（通過引用）的AddItem和可選地通過一個指針項對象。

我認爲鏈接列表中的對象Item的實例的引用（指針）將確保項目的內存位置將被保持。然而，看起來，一旦退出類，它就會被收集起來。

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中編寫鏈接列表類型代碼。

我特意爲可以想象的這個最簡單的鏈表寫了這段代碼。這使您可以專注於分配，使用指針等。您似乎已經知道如何在更復雜的列表中維護引用，所以我相信您可以毫無困難地將這種類型的代碼適應您的需求。