导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2003/4/22 18:21:32
标题:
加入我的收藏
楼主:
我现在又遇到一个很恼火的问题!我用dephi做毕业设计的时候,要用到可能是5、6维的数组,我现在想知道的是怎么样才能把数据表的某个字段值赋给一个数组,谁可以给一段程序给我参考吗?只要给我举一个一维数组和一个二维数组的例子就可以了!
----------------------------------------------
-
作者:
2003/4/22 19:13:56
1楼:
请试试这个: procedure Tform1.but1click(sender:Tobject) var i:integer; x:array [0..100] of double; begin query1.close; query1.sql.clear; query1.sql.add('select * from table1'); query1.open; for i:=0 to query1.recordcount-1 do begin x[i]:=query1.fieldvalues['height']; end; end;
----------------------------------------------
-
作者:
2003/4/22 19:15:25
2楼:
x[i]:=query1.fieldvalues['height']; query1.next; //加上这个,我写掉了,不好意思
----------------------------------------------
-
作者:
2003/4/22 20:36:38
3楼:
我想问一下!!这里的['height']是什么意思!!
----------------------------------------------
-
作者:
2003/4/22 20:38:12
4楼:
你能再写一个从数据表里的两个字段的值赋给一个二维数组的程序吗??谢谢!!
----------------------------------------------
-
作者:
2003/4/23 18:16:39
5楼:
fieldvalues['height'] //height 表示数据表中的字段名 不过类型要一致哟 我是这样用的。 后面这个问题,我想你可以把数据表中一字段的值赋给二维数组的列或行, 重复进行就可以了。 希望我讲清楚了。
----------------------------------------------
-
作者:
2003/4/24 12:33:13
6楼:
可惜我还是不怎么懂,用二维数组怎么搞!帮帮忙,给一段完整的程序给我看一下!谢谢了!
----------------------------------------------
-
作者:
2003/4/24 13:31:12
7楼:
怎么不回答呀!!
----------------------------------------------
-
作者:
2003/4/24 15:31:26
8楼:
怎么又没有人回答啊呀!
----------------------------------------------
-
作者:
123 (猪猪)
★☆☆☆☆
-
盒子活跃会员
2003/4/24 17:47:57
9楼:
1楼的程序段已经很完整了呀~~~寒~~~2维的 var i,j:integer; x:array [0..5,0..100] of string; begin query1.close; query1.sql.clear; query1.sql.add('select * from table1'); query1.open; for j:=0 to query1.recordcount-1 do begin query1.first; for i:=0 to query1.fieldscount-1 do //字段个数是不是这个属性我不确定,自己试试看. begin x[j,i]:=query1.fields[j].value.asstring; query1.next; end; end; end; 调试不通过自己改改,我随便写的.
----------------------------------------------
-
作者:
2003/4/24 18:23:50
10楼:
应该是从数据表里面取两列的值呀!怎么只有一列呀!
----------------------------------------------
-
作者:
2003/4/24 18:32:07
11楼:
可能是我的意思没有说明白,我再说一次吧!我的意思是从数据表里取两列的值出来存储在二维数组中,然后用一个控件显示出来!这样的话,二维数组应该只有两列!就是一个x[1,n]这样的数组;
----------------------------------------------
-
作者:
123 (猪猪)
★☆☆☆☆
-
盒子活跃会员
2003/4/24 18:50:16
12楼:
我晕,你把9楼的x:array [0..5,0..100] of string;的5改为1不就是两列了!!
----------------------------------------------
-
作者:
2003/4/24 18:51:00
13楼:
但你并没有从数据库里面取两列值出来呀!!
----------------------------------------------
-
作者:
2003/4/24 20:19:37
14楼:
这段程序已经将表中所有列都取出来了!
----------------------------------------------
-
作者:
2003/4/24 20:22:44
15楼:
但没有将两列的值赋给数组呀!!只赋了一列的值!
----------------------------------------------
-
作者:
2003/4/24 20:25:55
16楼:
我是新手,我笨,大家原谅我的无知吧!帮我写一段我看得清楚,也能学到的吧!!谢谢!
----------------------------------------------
-
作者:
2003/4/24 22:08:30
17楼:
晕
----------------------------------------------
-
作者:
2003/4/25 10:58:27
18楼:
for的循环里已经把表里所有的字段全传进数猪啦。
----------------------------------------------
-