论坛 › Delphi交流 › 小甲鱼15课求助-------------以解决.

最后的精彩 发表于 2013-2-16 23:09:21

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

本帖最后由 最后的精彩 于 2013-2-16 23:32 编辑

没看课程写的：
工程文件：

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

最后的精彩 发表于 2013-2-16 23:23:39

本帖最后由 最后的精彩 于 2013-2-16 23:26 编辑

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

陽光ㄟ有點冷 发表于 2014-2-24 13:50:20

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

查看完整版本: 小甲鱼15课求助-------------以解决.