数据库中数据循环转化为字符串显示出来代码

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;