var i : integer; begin i := 0; query.first; while not query.eof do begin arrayP[i] := query.fieldbyname('fri').asstring;//数组类型要和你取数据的类型匹配,这里用字符类型示例 query.next; inc(i); end; end;
看看 i:=1; qrery.first; while not qrery.eof do begin yy[i]:=query.fieldbyname('fri').asstring; i:=i+1; end; 可以吗?
i : integer;
begin
i := 0;
query.first;
while not query.eof do
begin
arrayP[i] := query.fieldbyname('fri').asstring;//数组类型要和你取数据的类型匹配,这里用字符类型示例
query.next;
inc(i);
end;
end;
i:=1;
qrery.first;
while not qrery.eof do
begin
yy[i]:=query.fieldbyname('fri').asstring;
i:=i+1;
end;
可以吗?