怎样将从数据库中读取的数据放入记录数组中？？在线等！

Question

rt！
最好有代码！！！

Answer 1

type
  TVTable=record
    FStockid:integer;
    FBatchNo:string;
    FQuanty :double;
    FCount  :integer;
end;ArrVTable    : Array of TVTable;
tableitem :TVTable;
iRow : Integer;
setlength(ArrVTable,0)
while not Query.eof do
begin 
   with Tableitem do
   begin
     Fstockid := query.FieldByName('FStockid').AsInteger;
     FBatchno:=  query.FieldByName('FBatchNo').AsString;
     FQuanty := query.FieldByName('FQuanty').AsString;
     FCount  := query.FieldByName('FCount').AsString;
   end;
   iRow := high(ArrVTable);
   setlength(ArrVTable,iRow+2);
   ArrvTable[iRow+1]:=TableItem;
  query.next;
end;