2,495
社区成员
发帖
与我相关
我的任务
分享adoquery读出一行数据如何写入数组中??????
读出数据为一行:
热热 可乐 面包 火箭 美女 香烟........为string型
写入数组a[1..20]:array of string 中.读出数据列数小于数组最大长度,且不知道列名
还有怎样把 读出的数据
17 28 31 48 .......等写入combobox1?在 combobox1显示:17是数字,28是数字.......
热热 可乐 面包 火箭 美女 香烟........为string型
写入数组a[1..20]:array of string 中.读出数据列数小于数组最大长度,且不知道列名
还有怎样把 读出的数据
17 28 31 48 .......等写入combobox1?在 combobox1显示:17是数字,28是数字.......
...全文
请发表友善的回复…
发表回复
Changefish 2004-09-28
- 打赏
- 举报
set lenght a adoQuery1.FieldCount
动态数组好
动态数组好
todouwang 2004-09-28
- 打赏
- 举报
给分吧
meilidami 2004-09-28
- 打赏
- 举报
一楼二楼正解，
楼主可以给分了
楼主可以给分了
pengxuan 2004-09-28
- 打赏
- 举报
一楼二楼正解
superlyb 2004-09-28
- 打赏
- 举报
MS-sql 中有个函数 settoarray
cd_fsy2000 2004-09-27
- 打赏
- 举报
同意楼上的和楼上的楼上
lxl 2004-09-27
- 打赏
- 举报
俺就偷懒用楼上的了，
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
a: array [1..32] of String;
begin
combobox1.items.clear;
for i := 1 to adoQuery1.FieldCount do
combobox1.items.add(adoQuery1.Fields.Fields[i -1].asstring);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
a: array [1..32] of String;
begin
combobox1.items.clear;
for i := 1 to adoQuery1.FieldCount do
combobox1.items.add(adoQuery1.Fields.Fields[i -1].asstring);
end;
梅青松 2004-09-27
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
a: array [1..32] of String;
begin
for i := 1 to adoQuery1.FieldCount do
a[i] := adoQuery1.Fields.Fields[i -1].Value;
end;
var
i: Integer;
a: array [1..32] of String;
begin
for i := 1 to adoQuery1.FieldCount do
a[i] := adoQuery1.Fields.Fields[i -1].Value;
end;
