Dephi程序中如何将数据集打开后得到的值放入变量中

Question

Dephi程序中如何将数据集打开后得到的值放入变量中,
例: 有一个TQuery的数据集,执行TQuery.Open后应得到的数据,那么怎么样才能将数据集的数据放入程序的变量中

Answer 1

问题非常难理解，试着理解是不是这个意思？
var:
mygod:stings;
myday:datetime;
i:integer;
begin
   query1.open;
   mygod:=query1.fields[0].asstring;
   myday:=query1.fieldbyname('mydate').asdatetime;
   myday:=query1.fieldbyname('mydate').asdatetime;
   i:=query1.fields[0].value;
end;

Answer 2

楼主所谓的变量是什么变量？
数据集都是多记录、多字段的哦var
  val: array[][] of string;
  i, j: integer;
begin
  query.open;
  setLength(val, query.RecordCount, query.FieldCount);
  query.first;
  for i := 0 to query.RecordCount do begin
    for j := 0 to query.FieldCount do
      val[i][j] := query.Fields.FieldByNumber(j).AsString;
    query.next;
  end;
end;使用动态数组防止越界，读取整个数据集到数组val如果只是普通的变量只能读取记录集中的某一条记录的某一个字段，
除非sql中有控制只输出一条记录

Answer 3

query.open;i := query.FieldByName('COL1').asInteger ;

Answer 4

query1.FieldByName('zhl').Value := Edit1.Text;

Answer 5

Edit1.Text:=query1.FieldByName('zhl').Value;