delphi 把表格中的第4列的某两格输入的数字是相邻数字 则计算他们的行差 用动态数组表示 代码错在那里? procedure TForm1.Button1Click(Sender: TObject); var i,j,n :integer; check:array of integer; begin for i:=1 to 20 do begin for j:=i+1 to 21 do begin n:=strtoint(stringgrid1.Cells[4,i]); if stringgrid1.Cells[4,j] =inttostr(n+1) then begin check:= j-i; end; end; end; end;

让这个世界因为有了我 而有一点点的不一样 而我的世界 不过就是你的心。我就是我 专业顶楼党。

我只是来看看的，这个世界还有太多的帖需要哥。哥祝楼主早日得到解答