各位大大,請問如何傳遞不同的物件到同一個函數? 例如: procedure SetListItem(var ABox: TObject,ASQL: String); begin ....... adset.active:=false; adset.commandtext:=ASQL; if not adset.eof then while not adset.eof do begin if ABox is TComboBox then (ABox as TComboBox).Items.Add(adset.fields[1].asstring); if ABox is TListBox then (ABox as TListBox).Items.Add(adset.fields[1].asstring); ....... adset.next; end; ...... end; 然後從其他地方call這個procedure setlistitem(combo1,'select * from emp'); setlistitem(list1,'select * from dept'); combo1是TComboBox物件, list1是TListBox物件 我顯示的錯誤訊息是 type of actual and formal var parameters must be identical

------
~~~~沁涼如水 清韻隨吟~~~~

各位大大,請問如何傳遞不同的物件到同一個函數?     [Deleted] 然後從其他地方call這個procedure setlistitem(combo1,'select * from emp'); 試試看改成這樣 setlistitem(TObject(combo1), 'select * from emp'); 下面也是這樣改 setlistitem(list1,'select * from dept');

------
--
Regards,
Skyer

引言: 各位大大,請問如何傳遞不同的物件到同一個函數? 例如: procedure SetListItem(var ABox: TObject,ASQL: String); begin ....... end; 然後從其他地方call這個procedure setlistitem(combo1,'select * from emp'); setlistitem(list1,'select * from dept'); combo1是TComboBox物件, list1是TListBox物件 我顯示的錯誤訊息是 type of actual and formal var parameters must be identical

我想您的問題應該是 procedure SetListItem(ABox: TObject; ASQL: String); Object 本身就是 call by reference, 就是指標操作了, 不用加 var; 不同參數型態應該是用 ";" 分別不是用 "," compile 不過才對

引言: 我想您的問題應該是 procedure SetListItem(ABox: TObject; ASQL: String); Object 本身就是 call by reference, 就是指標操作了, 不用加 var; 不同參數型態應該是用 ";" 分別不是用 "," compile 不過才對

","是我post時key錯的,在delphi中我是用";"的,謝謝您

引言: 各位大大,請問如何傳遞不同的物件到同一個函數? [Deleted] 然後從其他地方call這個procedure setlistitem(combo1,'select * from emp'); 試試看改成這樣 setlistitem(TObject(combo1), 'select * from emp'); 下面也是這樣改 setlistitem(list1,'select * from dept');

謝謝您,若使用delphi的物件類別可以pass了,另外請教您一個問題,若是要傳入自訂的class呢?例如 type myclass=record abc: string; def: string; end; 我宣告了變數A,B皆為myclass的動態陣列 a: array of myclass; b: array of myclass; 在程式中call他 setlistitem(myclass(a),'select * from emp'); procedure setlistitem(aa: myclass;asql: string); var i: integer; begin setlength(aa,adset.recordsetcount); i:=0; while not adset.eof do begin aa[i].abc:=adset.fields[0].asstring; ..... adset.next; end; .... end; 並無法使用類似TObject(combo1)...之類的 我用setlistitem(a,sqlstring)以及setlistitem(myclass(a),sqlstring) 都有錯誤發生,請問大大如何解決傳入自己設定的動態陣列類別?

引言: 謝謝您,若使用delphi的物件類別可以pass了,另外請教您一個問題,若是要傳入自訂的class呢?例如 type myclass=record abc: string; def: string; end; 我宣告了變數A,B皆為myclass的動態陣列 a: array of myclass; b: array of myclass; 在程式中call他 setlistitem(myclass(a),'select * from emp'); procedure setlistitem(aa: myclass;asql: string); var i: integer; begin setlength(aa,adset.recordsetcount); i:=0; while not adset.eof do begin aa[i].abc:=adset.fields[0].asstring; ..... adset.next; end; .... end; 並無法使用類似TObject(combo1)...之類的 我用setlistitem(a,sqlstring)以及setlistitem(myclass(a),sqlstring) 都有錯誤發生,請問大大如何解決傳入自己設定的動態陣列類別?

您這要宣告一個類別的類別就可以用了. TaryMyClass: array of myclass; 使用方法: procedure setlistitem(aa: TaryMyClass; asql: string); 如果是要讓其他 unit 也能用, 最好宣告在一個共用的 unit 中; 要用的 unit 再引用它.

謝謝danny,可以了 ^^

------
~~~~沁涼如水 清韻隨吟~~~~