怎么查看Delphi中recordset里面值？

Question

在Delphi运行环境中怎么才能看见recordset中的值。有不有好的方法，比如说弹出message？
请大家指导，谢谢！！

Answer 1

没有. 
adoquery 之类的,可以都过 
showMessage files[num].asString 这样查看.在 C# 下面对于这一类的RecordSet 有一个view 可以看. 呵呵

Answer 2

是的C#里面是可以查看，但是在Delphi中看不到里面的值...谁能给个好的方法呢...非常感谢！！

Answer 3

Stabbot.Panels[2].Text:=IntToStr(QryMST.RecNo)+' / '+IntToStr(QryMST.RecordCount);
加个状态栏Stabbot,然后在数据集QryMST的AfterScroll事件里加上如上所示代码即可

Answer 4

谢谢楼上大哥。如果我现在把数据集添加到一个数组里面，如：A[0]:Qu.Recordset。怎么能看到这个数组里面的值呢？

Answer 5

A[0]:=qu.recordset
怎么看Delphi Recordset中的值....
请各位大侠，支持一下....

Answer 6

var i:Integer;s:String;
begin
  for i:= 0 to ado.FieldCount -1 do
    s := s+','+VarToStr(ado.Field[i]);
  ShowMessage(s);
end;

Answer 7

正解如下：（以String方式返回Recordset...)procedure TRes_Cq_HrQj_F.cxButton5Click(Sender: TObject);
var
  a:OleVariant;
  i,j:integer;
  b:string;
begin
  inherited;
  a:=Self.qry_cqjd.Recordset.GetRows(-1,1,emptyparam);
  if Varisarray(a) then
  begin
    for i:=0 to qry_cqjd.RecordCount-1 do
    for j:=0 to qry_cqjd.FieldCount-1 do
    begin
      if varisnull(a[j,i]) then continue;
      b:=a[j,i];
      ShowMessage(b);
    end;
  end;
end;

Answer 8

继续分享查看Delphi中调试值的方法..