小甲鱼15课求助-------------以解决.

最后的精彩

没看课程写的：
工程文件： 15.rar (2.7 KB, 下载次数: 2)

2013-2-16 23:08 上传

点击文件名下载附件

求高手看一下:
procedure TForm1.Button1Click(Sender: TObject);
var
  random_array:array[1..10]of Integer;         //10个随机数数组;
  big,log,var1:Integer;
  any:string;
begin
  for var1:=1 to 10 do
  begin
    random_array[var1]:=random(100);            //生成10个随机数;
    if (random_array[var1]>big) then
    begin
      big:=random_array[var1];                  //取最大值并记录下标;
      log:=var1;
    end;
    any:=any+IntToStr(random_array[var1])+',';
  end;
  edit1.Text:=any;
  edit2.text:=IntToStr(big);
  edit3.text:=IntToStr(log);
end;
end.

最后的精彩

搞定了，原因是big未赋初始值就引用了，从而发生了错误.
procedure TForm1.Button1Click(Sender: TObject);
var
   random_array:array[1..10]of Integer;         //10个随机数数组;
   big,log,var1:Integer;
   any:string;
begin
   big:=0;
   log:=0;
   for var1:=1 to 10 do
   begin
     random_array[var1]:=random(100);            //生成10个随机数;
     if (random_array[var1]>big) then
     begin
       big:=random_array[var1];                  //取最大值并记录下标;
       log:=var1;
     end;
     any:=any+IntToStr(random_array[var1])+',';
   end;
   edit1.Text:=any;
   edit2.text:=IntToStr(big);
   edit3.text:=IntToStr(log);
end;
end.

陽光ㄟ有點冷

:lol::lol::lol::lol::lol::lol::lol::lol::lol::lol::lol::lol:呵呵，不错~~~~~~