數據庫中數據循環轉化爲字符串顯示出來代碼

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;