function CloneProperty2(SourceComp, TargetComp: TObject): Boolean;
var
  i: Integer;
  Properties : PPropList;
begin
  Result := True;
  try
    for i := 0 to GetPropList(SourceComp, Properties) - 1 do
    begin
      if LowerCase(Properties[i].Name) = 'name' then continue;
      if not IsPublishedProp(SourceComp, Properties[I].Name) then Continue;
      if not IsPublishedProp(TargetComp, Properties[I].Name) then Continue;
      if PropType(SourceComp, Properties[I].Name) <> PropType(TargetComp, Properties[I].Name) then
        Continue;
      case PropType(SourceComp, Properties[i].Name) of
      tkClass:
        SetObjectProp(TargetComp, Properties[i],
        GetObjectProp(SourceComp, Properties[i]));
      tkMethod:
        SetMethodProp(TargetComp, Properties[I], GetMethodProp(SourceComp,
          Properties[I]));
      else
        SetPropValue(TargetComp, Properties[i].Name, GetPropValue(SourceComp,
        Properties[i].Name));
      end;
    end;
  except
    Result := False;
  end;
end;

引言: Hi: 首先在 Form1 中定義一個全域變數 Table2 : TTable; 於 form1 中 Table2 := Table1.Create(Form2); Table1是一個object instance,不是Class 如何用來Create

引言: 謝謝各位大大們的幫忙測試...!! 只是到目前為止,尚沒有一個最完整且OK的答案出現.... 大家加油囉!! 相信今天提出的問題...如果有一個解決方案,相信也應當可以帶給很多朋友一 個比較方便性的!! 補充一點.... 請問>< face="Verdana, Arial, Helvetica"> 1、昨天貼的那個CloneProperty2過程雖然麻煩了一點、但已經實現了物件的屬性、事件和屬性值的複製、我想這已經夠用了吧 2、Assign The Assign method copies all properties from a Series component to another. Only the common properties shared by both source and destination Series are copied. TPersistent.Assign是個虛方法、裏邊沒有實現什麼、除了處理異常、看看它的代碼就知道了、 因此只有重載了這個方法的物件才可以使用它、例如TStrings、而不論是TButton還是TTable、都沒有這個方法的具體實現、所以是這條路是行不通的

引言:

引言: 謝謝各位大大們的幫忙測試...!! 只是到目前為止,尚沒有一個最完整且OK的答案出現.... 大家加油囉!! 相信今天提出的問題...如果有一個解決方案,相信也應當可以帶給很多朋友一 個比較方便性的!! 補充一點.... 請問>< face="Verdana, Arial, Helvetica"> 1、昨天貼的那個CloneProperty2過程雖然麻煩了一點、但已經實現了物件的屬性、事件和屬性值的複製、我想這已經夠用了吧 2、Assign The Assign method copies all properties from a Series component to another. Only the common properties shared by both source and destination Series are copied. TPersistent.Assign是個虛方法、裏邊沒有實現什麼、除了處理異常、看看它的代碼就知道了、 因此只有重載了這個方法的物件才可以使用它、例如TStrings、而不論是TButton還是TTable、都沒有這個方法的具體實現、所以是這條路是行不通的

To: Rain大大.... 不好意思.... 剛才再試了一下您所給的程序.....果然是可以達到我所要的功能了.... 可是...最重要的一點....卻沒法子完成.... 那就是如果我所代入的參數,如果是 >

引言: To: Rain大大.... 不好意思.... 剛才再試了一下您所給的程序.....果然是可以達到我所要的功能了.... 可是...最重要的一點....卻沒法子完成.... 那就是如果我所代入的參數,如果是 > >< face="Verdana, Arial, Helvetica"> 這就奇怪了、剛剛在這邊用ADO元件試了一下、沒有出現問題、資料也可以保存、TTable也試了一下、沒有出錯資訊、複製TableName之類的屬性也沒有問題、因為我這邊的BDE老早以前就壞掉了、沒用、就沒去管它、所以沒辦法測試一下資料可不可以更新、按理說也應該可以、需要注意的一點是在複製以前如果Table.Active := True則Table.Close; 另外不知道你那邊具體的出錯資訊是什麼、在哪邊出錯呢？ 發表人 - Rain 於 2004/01/07 11:59:43

引言: Hi: 感謝 ccchen 大大的指教 我試過 <>> 的指令，沒有問題，只是未測試其內容是否正確無誤，我會撥個時間作一次完整的測試 <>> 會造成 <>> 的錯誤訊息，應如何克服？ -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 -------------------------------- < face="Verdana, Arial, Helvetica"> 是我錯了 1. Create是一個class method. Class method可以用Class來呼叫, 也可以用object instance 呼叫, 但結果是一樣的, 即TTable.create和Table1.create是完全一樣的 2. TTable未Implement Assign所以不可用, 只好用GetPropList一個個做了. 3. 若是TClientDataSet倒是可用CloneCursor

引言:

引言: To: Rain大大.... 不好意思.... 剛才再試了一下您所給的程序.....果然是可以達到我所要的功能了.... 可是...最重要的一點....卻沒法子完成.... 那就是如果我所代入的參數,如果是 > >< face="Verdana, Arial, Helvetica"> 這就奇怪了、剛剛在這邊用ADO元件試了一下、沒有出現問題、資料也可以保存、TTable也試了一下、沒有出錯資訊、複製TableName之類的屬性也沒有問題、因為我這邊的BDE老早以前就壞掉了、沒用、就沒去管它、所以沒辦法測試一下資料可不可以更新、按理說也應該可以、需要注意的一點是在複製以前如果Table.Active := True則Table.Close; 另外不知道你那邊具體的出錯資訊是什麼、在哪邊出錯呢？ 發表人 - Rain 於 2004/01/07 11:59:43

To: Rain大大..... 哈...太感謝啦!! 我已經成功的經由您所給的程序,達到我想要的功能了....!! 至於前一篇說到 > ) 不管怎樣....這一篇的分數....一定是要給 >

引言: 另外,這一支程序是否不須經由任何修改,就可以達到所有元件的完全複製呢? (指:可視及不可視元件...簡單說應該是指Delphi內附的所有元件及自行開發的 元件及任何的外來元件....等等!!)

引言:

引言: 另外,這一支程序是否不須經由任何修改,就可以達到所有元件的完全複製呢? (指:可視及不可視元件...簡單說應該是指Delphi內附的所有元件及自行開發的 元件及任何的外來元件....等等!!)

都可以、應該適用於所有元件

引言: 只是...萬一我所要複製的來源,已被某個開啟的視窗所用,然後此時想在另一個 視窗中用此複製的方式來產生一個相同的Dataset時,卻必須先將該來源給Close ,可是這樣子一來,那一個有使用其來源Dataset的視窗,其中的資料不就給Close 而不能操作了...不知道這一部份,...是否有其它方式可以解決? (這裡所指的來源Dataset,應該是放在DM中,然後視窗是採用MDI....) (這裡的新問題,不敢奢求能夠有解決方案,不過...如果能夠有的話...那就最好 了...嘻!! ) < face="Verdana, Arial, Helvetica"> 這個不難、不複製Active屬性的屬性值True就好、在那個過程中加上一句即可（紅色部分） if LowerCase(Properties[i].Name) = 'name' then continue; if LowerCase(Properties[i].Name) = 'active' then continue;

Rain大大..... 您真是太厲害了...!! 配服!! (已經完全OK了!!) 在此希望有看到此篇文章的朋友,尤其是比較屬於入門級的....希望能帶給您 們一些幫助....同時也替大家感謝大大們的熱心!! 今天這篇問題的主要訴求如下: (我所想要的,或許也是某些人想要的) ( > 最後....寫到這裡忽然想到一個問題.... ( 想再次麻煩一下 >

引言: 那就是....要如何改這一個程序,而達到連DataSet中的永久性欄位也能複製呢? 因為我將來源Dataset中的永久性欄位設好後,卻發現新產生的Dataset並沒有 來源中所設定的永久性欄位....(我是藉由DBGrid來查看測試的...如中文抬頭 ,欄位數量...等等)

var
  I: Integer;
begin
  CloneProperty2(Table1, Table2);
  with Table2 do
  begin
    DisableControls;
    try
      Open;
      Close;
      for I := 0 to Table1.Fields.Count - 1 do
        FieldDefList[I].CreateField(Owner).DisplayLabel := Table1.Fields[I].DisplayLabel;
      Open;
    finally
      EnableControls;
    end;
  end;
end;