delphi中17讲的问题，输入人数，弹出窗体，录入信息，显示表格！

虎背熊腰抠脚汉

题目：运行后，首先弹出一个窗体，输入数字（暂规定必须是数字，不做判断）只用一个窗体完成！
2---按OK之后，弹出  输入信息 点  成绩录入

3-----之后edit变化，重新输入信息

4----最后 绘制表格可用

5----点击之后是这样的界面
6----------程序执行顺序按图片编号看！！！！！

我已经完成了大部分代码，但是编译时总是错误！！！！谁能帮我完成？？？
自己编写.rar (190.32 KB, 下载次数: 40)

2013-4-2 02:09 上传

点击文件名下载附件

卡布基米

http://pan.baidu.com/share/link?shareid=339632&uk=1342371079
因为一开始我只是单纯的想对你的button1click事件进行修改，我也是在看完小甲鱼的代码之后才意识到不能用你的那种方法来初始化二维数组的列数K

卡布基米

看过你的代码了，你对动态数组的设置没错，但是你是在Button1Click时对k即二维数组的列数进行设置，初始值为1，这样你每次一点击buttton1的时候K被重置为1 ，循环不下去……还有你说的一直报错。错误为读地址错误，是因为二维数组的下标是从J[0][0]开始的，你一开始就设置为1，即你的赋值从J[1][0]开始，自然要报错。正确的做法是需要在FormCreat的时候对K进行初始化，并且K的值为StrToInt( InputBox('请输入', '请输入需要录入的人数:   ', '') )，说的有点乱，详细点请看小甲鱼老师的源代码，等下给你附链接，
procedure TForm1.Button1Click(Sender: TObject);
var
  k,i:Integer;
begin
  k:=1;
  i:=StrToInt(renshu);
  SetLength(J,k,4);

虎背熊腰抠脚汉

卡布基米 发表于 2013-4-2 14:45

                               
登录/注册后可看大图

http://pan.baidu.com/share/link?shareid=339632&uk=1342371079
因为一开始我只是单纯的想对你的button1c ...

我看了小甲鱼老师的代码了，我本来是想自己完成这个的！！
他的代码有新的东西（我以前没学的），但是这个我感觉凭现有掌握的知识可以完成！所以就钻这个牛角尖了！感恩无私的分享与奉献 :)

如果当初

我是VIP，我骄傲！

Delphi猿_宏业

楼主加油，鱼C加油！我们都看好你哦！

123bh

运行之前的窗体是几个部分组成的我迷惑这一点了