deal: 我想要做動態array的傳遞，可是卻寫到一半就寫不下去了，因為不知道a 要改成什麼，請各位幫我看一下，謝謝喔! unit1 的sorce code unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,unit2; type TForm1 = class(TForm) Button1: TButton; Edit3: TEdit; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var max,i :integer; begin Point :=StrToInt(edit2.Text); setLength(input,Point); //setup dynamic arry length for i := 0 to Point do begin input[i]:=i;//inicial value end; Procemax(input,max);//find max value edit3.Text:=inttostr(max); end; end. //------------------------------------------------------- unit2 unit Unit2; interface //***********************const define**************// const TestConst = 1000; //*************************************************// type //***********************function define***********// procedure Procemax(a:input;var max1:integer); //find max value //*************************************************// var Input :array of integer; Point :integer; implementation //***************************************************// procedure Procemax(a:input;var max1:integer); var idx:integer; begin max1:=a[0]; for idx := 1 to 9 do begin if a[idx]>=max1 then max1:=a[idx]; end; end; //*************************************************// end. 新手上路

------
新手上路

procedure Procemax(a:array of integer;var max1:integer); var idx,temp:integer; begin Temp := 0; for idx := 0 to High(a) do begin if a[idx]> Temp then Temp:=a[idx]; end; Max1 := Temp; end; ----------------------------------------------- Creation is the fundation of promotion.