动态数组的代码如下:请帮忙看一下。
procedure Txitongjianhua_form.FormActivate(Sender: TObject);
var
str:string;
i:integer;
imageA,imageB:array of Timage; //¶¨ÒåͼƬÊý×é
begin
mainform.adoquery1.Close;
mainform.adoquery1.ConnectionString:=mainform.adoconnection1.ConnectionString;
mainform.adoquery1.sql.clear;
mainform.adoquery1.SQL.add('select * from wuchangmoxing where leixing=:a order by bianhao');
mainform.adoquery1.Parameters[0].value:='6';
try
mainform.adoquery1.open;
except
showmessage('²»ÄÜ´ò¿ªÊý¾Ý¿â£¡');
end;
for i:=1 to mainform.adoquery1.RecordCount do stringgrid1.RowHeights[i]:=100;
i:=1;
mainform.adoquery1.first;
while not mainform.adoquery1.eof do
begin
stringgrid1.Cells[1,i]:= mainform.adoquery1.fieldbyname('bianhao').AsString;
stringgrid1.Cells[3,i]:= mainform.adoquery1.fieldbyname('mingcheng').AsString;
stringgrid1.Cells[5,i]:= mainform.adoquery1.fieldbyname('wentimiaoshu').AsString;
str:= copy(mainform.adoquery1.fieldbyname('bianhao').AsString,3,6);