Type TControlCls=ClassofTControl;functionCreateComponent(ControlCls:TControlCls):TControl;begin result:=ControlCls.Create(Form1); ...end;functionCreateComponent(ControlCls:TControl):TCont……
var A: Array of Integer;{定义静态数组}procedure TForm1.Button1Click(Sender: TObject);var i:Integer;begin Memo1.Clear; for i:=Low(A) to High(A) do begin Randomize; ...……