vaceo 发表于 2011-10-30 02:12:02

以下程序逻辑错在哪里???

procedure TForm1.FormCreate(Sender: TObject);
begin
   i:=strtoint(InputBox('提示','请输入所要录入的数据个数',''));
   SetLength(arr,i,4);
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
j:=0;
   if (j<=(i-1)) then
   begin
   arr:=edt1.Text;
   arr:=edt2.Text;
   arr:=edt3.Text;
   arr:=edt4.Text;
   edt1.Text:='';
   edt2.Text:='';
   edt3.Text:='';
   edt4.Text:='';
   j:=j+1;
   end
   else
      btn1.Enabled:=False;
end;
end.

错在哪呢？ 为什么btn1没有失效？ J值的问题？

rong363642022 发表于 2011-11-13 19:36:36

你这个j<=(i-1)表达式如果为真的话，这个btn1.Enabled:=False;根本不会执行，那btn1怎么会失效呢！除非i-1〈0！

fallout.nj 发表于 2012-1-24 01:33:35

当i的值小于等于0的时候按钮才失效
页: [1]
查看完整版本: 以下程序逻辑错在哪里???