請教大家... 當我建立

type
  classA=class
    public
      a:integer;
      b:string;
      c:TList;
      constructor Create;
      destructor Destroy;
      // procedure OtherMethod; // procedure必須存在...省略
  end;
  //---implementation section----
  constructor classA.Create;
  begin
    c := TList.Create;
  end;
  destructor classA.Destroy;
  begin
    c.Free;
  end;

今我有如下定義:「var obj1,tmpObj:classA;」 那麼，我如何傳遞tmpObj=obj1;的效果(tmpObj我只想記錄obj1的欄位) 也就是說,我的tmpObj只想要classA 物件產生的空殼子(用不到方法).. 我該如何做呢?!thx~ ps.直接使用tmpObj:=obj1;在tmpObj.Free;時記憶體會出錯(指到0) 不知該自行寫欄位複製的method(那麼麻煩?!)還是如何解決..thx~