我在畫面上放一個 BUTTON 元件要控制 TDataSet 元件做 INSERT 動作，我在 BUTTON 的 onClick 事件撰寫以下程式碼，但發現、DELPHI VCL 架構中，資料感知元件並沒有固定的父階元件，故必須針對不同 ActiveControl 做不同的 IF 判斷。    我想請教各位先進，就型別轉換部分是否有較佳寫法？    

if ActiveControl is TDBEdit then
  TDBEdit(ActiveControl).DataSource.DataSet.Insert;    if ActiveControl is TDBComboBox then
  TDBComboBox(ActiveControl).DataSource.DataSet.Insert;

-------------------------------- 給我一個支點，我可以撐起整個地球

你好： You can try it < class="code"> uses TypInfo; procedure TForm1.Button1Click(Sender: TObject); var ds : TDataSource; begin if IsPublishedProp (ActiveControl, 'DataSource') then begin ds := TDataSource (GetObjectProp (ActiveControl, 'DataSource')); if ds <> nil then begin ds.DataSet.Insert; end; end; end;

You Got! Perfect! RTTI 技術是嗎？高手！厲害！ -------------------------------- 給我一個支點，我可以撐起整個地球