我现在需要将从数据库中查出的记录放在一个2维数组里,第一微放有多少条记录,第二维放字段数,我该怎么做???急急急!!!
解决方案 »
- 求助:delphi2009自定义ip address control时有黑边的问题
- 我的程序在调用动态链接库中的函数时,出现External exception C0000008错误,怎么解决?
- 请教问题一个
- 请教两个Form中数据关联的问题 :)
- 如何在runtime拖动一个TFileList控件?
- fastreport 如何设置图片选择90度?
- 有谁知道MMTools中什么过滤电平?
- 请问Access可恶的登录提示怎么去掉?
- rpc服务器无法使用,如何解决
- 如何在COMBOBOX中输入一个文字即可列出combobox中相关的内容
- 一个字符串截取的弱智问题,请大家帮忙
- FastReport的Memo的脚本中,如何使用AdoDataset.RecNo
RecordCount: Integer;
FieldCount: Integer;
end; MyDataSet = array of TMyDataSet;
第二种:
Msgs:array of array of integer
setlength(Msgs,记录数);
For i:=0 to 记录数-1 do
begin
setlength(Msgs[i],字段数);
end;
For example,
type TMatrix = array[0..4] of array[0..4] of Integer;
或者
type TMatrix = array[0..4, 0..4] of Integer;var
aa: TMatrix;
begin
for I := 0 to 4 do
for J := 0 to 4 do
begin
K := K + 1;
aa[I][J] := K;
end;
end;
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from patientinfo');
ADOQuery1.sql.open;
将记录查询出来了,我该怎么将记录存到二维数组里呢?(第一位记录数,第二位字段数)
temarray:array of array of integer 求出查询记录的行数,rows
setlength(temarray,rows)
for i:=0 to rows do
begin
temarray[rows]:=fieldbyname()...
end;
随变写的......
S : Array[0..10,0..20] of String;动态定义数据长度:
S : Array of Array of String; SetLength(S,10,20);