各位大大: 我想宣告一個 Function ,但參數數量與型態都未知,需由子類別去實際定義 也可能做的到嗎? 謝謝 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou

------
Thomas Chiou

Hi thomas0728,    請參考 http://delphi.ktop.com.tw/topic.php?topic_id=42356 並更改為 procedure TForm1.TestProc(A: array of Variant); ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

或是    

procedure test(s: tlist);
var i:integer;
begin
    for i:=0 to s.count-1 do begin
      if tobject(s[i]) is tlabel then
         showmessage ('label');
      if tobject(s[i]) is tbutton then
         showmessage ('button');
    end;
end;

這樣好像也可以

procedure Tes(const Params: array of const);