qry1:TDataset;
procedure TForm1.btn1Click(Sender: TObject);
var
i:integer;
Field : TField;//字段类型
ole : OLEVariant;
begin
if not qry1.Active then
qry1.Active := True;
while not qry1.Eof do
begin
for i := 0 to qry1.FieldCount-1 do
begin
Field := qry1.Fields[i];
ole := Field.AsVariant;//巧妙的地方在这里了,把内容转化为变体类型,省去了日期,整形之类的判断
showmessage(Field.FieldName +'='+ VarToStrDef(ole,'shit'));//变体转化为字符
end;
qry1.Next;
end;
end;