小弟寫了如下的碼:

type
  TMyNode = class(TObject)
    FStationID: integer;
    procedure SetStationID(Value: integer);
    property StationID: integer read FStationID write SetStationID;
  end;
// ...    { TMyNode }    procedure TMyNode.SetStationID(Value: integer);
begin
  if Value <> FStationID then
    FStationID := Value;
end;

請問一下大家: 1.在執行 myNode := TMyNode.Create 之後, 是不是不需要 myNode.Free？ 或 myNode := nil 小弟執行的結果會 Access Violation 2.小弟用如下的方式 Create 了數個 myNode, 加入一個 TList(List1)

procedure TForm1.AddMyNodeToList(AStationID: integer);
var myNode: TMyNode;
begin
  myNode := TMyNode.Create;
  myNode.StationID := AStationID;
  List1.Add(@MyNode);
end;

結果在用如下取的方式取出 MyNode.StationID 時, 值卻都不對了 是小弟哪裏做錯了？

  Memo1.Clear;
  for i := 0 to List1.Count -1 do begin
    MyNode := slMyNode.Items[i];
    Memo1.Lines.add(IntToStr(MyNode.StationID));
  end;

--- Everything I say is a lie.

你好： 1. 當你不需要使用時才作 Free 的動作。如果你 Free 後又去使用該 Node 則會產生 AV。 2. 物件本身就是指標類型，因此你不需要再加上 @ (這樣變成指標的指標)，直接 List1.Add(MyNode) 既可。 3. 修正第二點的錯誤就可正常。    

謝謝 ha0009 兄, 果然一切的錯都出在 @ 這裏 謝謝!  ---