学教程做的程序
看了教 程，学着做的程序，但是很多代码写的不规范，数组做出来效果一样，请大家点评不足。代码公布如下：这个代码值要把大于号换小于号，就是最大值和最小值，但是不明白为什么会这样。
.........
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
num:Array Of Integer;
max,min, i:Integer;//max最大值。
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
For i:=1 To 10 do
begin
num:=10 +Random (90);
Edit1.Text:=IntToStr(num)+','+Edit1.Text;
end;
Edit1.Text:=Copy ( Edit1.Text,1,Length(Edit1.Text)-1) ;
//以下判断最大值
max:=num;
i:=1;
For i:=2 to 10 do
if max<numthen
max:=num;
Edit2.Text:=IntToStr(max);
//复制上面代码换大小号，以下判断最小值
max:=num;
i:=1;
For i:=2 to 10 do
ifmax>num then
max:=num;
Edit3.Text:=IntToStr(max);
end;
end.
页:
[1]