TObjectListにオブジェクトを追加していくには？

解決

NES 2004-05-16 01:58:02 No: 9017 IP: 192.*.*.*

独自のオブジェクトクラスを作成し、TObjectListに追加していっているのですが
複数個の追加がうまくいきません。

NewData: NewObject  //Form1のCreateで作成、Destroyで開放
List: TObjectList;

procedure Form1.AddDataClick(Sender: TObject);
begin
  with NewData do
  begin
    Title := 指定した値;
    Text := 指定した値;
  end;
  List.Add(NewData);
end;

このようにプログラムして、実行するたびにListに新しいデータが追加されていくのを期待していたのですが
いくつデータを追加していっても、List内のどのデータもすべて同じメモリを参照してるようです。
どのようにプログラムすればそれぞれのデータが独自の値を保持できるようになるのでしょうか。

編集削除

ふぐちゃん 2004-05-16 02:31:20 No: 9018 IP: 192.*.*.*

> NewData: NewObject  //Form1のCreateで作成、Destroyで開放
？

List: TObjectList;

procedure TForm1.AddDataClick(Sender: TObject);
var
  NewData: NewObject;
begin
  NewData := NewObject.Create;
  with NewData do
  begin
    Title := 指定した値;
    Text  := 指定した値;
  end;
  List.Add(NewData);
end;

編集削除

NES 2004-05-16 16:11:05 No: 9019 IP: 192.*.*.*

ありがとうございます、解決しました。
TObjectListは自動でオブジェクトを開放してくれるんですね。

編集削除