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

vaceo

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[j,0]:=edt1.Text;
   arr[j,1]:=edt2.Text;
   arr[j,2]:=edt3.Text;
   arr[j,3]:=edt4.Text;
   edt1.Text:='';
   edt2.Text:='';
   edt3.Text:='';
   edt4.Text:='';
   j:=j+1;
   end
   else
      btn1.Enabled:=False;
end;
end.

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

rong363642022

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

fallout.nj

当i的值小于等于0的时候按钮才失效