DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: a12315
今日帖子: 46
在线用户: 7
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/22 18:21:32
标题:
这次你们一定得帮我! 浏览:4267
加入我的收藏
楼主: 我现在又遇到一个很恼火的问题!我用dephi做毕业设计的时候,要用到可能是5、6维的数组,我现在想知道的是怎么样才能把数据表的某个字段值赋给一个数组,谁可以给一段程序给我参考吗?只要给我举一个一维数组和一个二维数组的例子就可以了!
----------------------------------------------
-
作者:
男 simon (萧天) ★☆☆☆☆ -
普通会员
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;

----------------------------------------------
-
作者:
男 simon (萧天) ★☆☆☆☆ -
普通会员
2003/4/22 19:15:25
2楼: x[i]:=query1.fieldvalues['height'];
query1.next;   //加上这个,我写掉了,不好意思
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/22 20:36:38
3楼: 我想问一下!!这里的['height']是什么意思!!

----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/22 20:38:12
4楼: 你能再写一个从数据表里的两个字段的值赋给一个二维数组的程序吗??谢谢!!
----------------------------------------------
-
作者:
男 simon (萧天) ★☆☆☆☆ -
普通会员
2003/4/23 18:16:39
5楼: fieldvalues['height']   //height 表示数据表中的字段名  不过类型要一致哟

我是这样用的。
后面这个问题,我想你可以把数据表中一字段的值赋给二维数组的列或行,
重复进行就可以了。  希望我讲清楚了。
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/24 12:33:13
6楼: 可惜我还是不怎么懂,用二维数组怎么搞!帮帮忙,给一段完整的程序给我看一下!谢谢了!
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/24 13:31:12
7楼: 怎么不回答呀!!
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
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;
调试不通过自己改改,我随便写的.
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/24 18:23:50
10楼: 应该是从数据表里面取两列的值呀!怎么只有一列呀!
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
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不就是两列了!!
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/24 18:51:00
13楼: 但你并没有从数据库里面取两列值出来呀!!
----------------------------------------------
-
作者:
女 hucaizhu (caizhu) ★☆☆☆☆ -
普通会员
2003/4/24 20:19:37
14楼: 这段程序已经将表中所有列都取出来了!
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/24 20:22:44
15楼: 但没有将两列的值赋给数组呀!!只赋了一列的值!
----------------------------------------------
-
作者:
男 nestle_hcl (gigi) ★☆☆☆☆ -
普通会员
2003/4/24 20:25:55
16楼: 我是新手,我笨,大家原谅我的无知吧!帮我写一段我看得清楚,也能学到的吧!!谢谢!
----------------------------------------------
-
作者:
男 simon (萧天) ★☆☆☆☆ -
普通会员
2003/4/24 22:08:30
17楼:
----------------------------------------------
-
作者:
女 ldyocean (ldyocean) ★☆☆☆☆ -
盒子活跃会员
2003/4/25 10:58:27
18楼:     for的循环里已经把表里所有的字段全传进数猪啦。
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行78.125毫秒 RSS