如果有一個自建的object,如tfunction, 當我delcare了... var a : array[1..2] of tfunction 如果要在program running當中可以動態修改這個array要怎麼做? 因為SetLength不成功,setlength的parameter要係string...那?

試試看 setLength(a,給所需要的長度變數)

hi,GDMicheal:   如果你是D6以後的版本的話,改用 TObjectList ,用法跟TStringList一樣,只是用來管理object用的    

引言: 如果有一個自建的object,如tfunction, 當我delcare了... var a : array[1..2] of tfunction 如果要在program running當中可以動態修改這個array要怎麼做? 因為SetLength不成功,setlength的parameter要係string...那?

我試過用SetLength,但是說 type not match bor..

Hi GDMichael,    SetLength 只對 string or dynamic-array 有用，可以試著將 a 宣告為 Dynamic arrays，不知是否符合你的需要？

procedure TForm1.Button1Click(Sender: TObject);
var
  A : Array of TFunction;
begin
  SetLength(A,10);
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman