DELPHI 数据集在内存中快速查询方法

1、Bookmark var  p:pointer; procedure  TForm1.Button1Click(Sender: TObject);//加个标签 begin   p:=cxGrid1DBTableView1.DataController.DataSet.GetBookmark; end;     procedure  TForm1.Button2Click(Sender: TObject);//行焦点定位到标签 begin   cxGrid1DBTableView1.DataController.DataSet.GotoBookmark(p); end; 2、recNo      var i:integer;        i:=adodataset1.recno;        adodataset1.recno:=i; 3、locate     单个字段
      Locate(‘ID‘, ‘A001‘, []);

    多个字段
      Locate(‘ID;Name‘, VarArrayOf([‘A001‘, ‘小三‘]), []);

 

 

var  fname,fv:string; begin   fname:=ADOQuery.Fields.Fields[0].Name;   fv:=ADOQuery.Fields.Fields[0].AsString;   ADOQuery.Close;   ADOQuery.Open;   if  ADOQuery.Locate(fname,fv, []) then     showmessage(‘定位记录完成‘)   else     showmessage(‘定位失败。‘);   //...... end;







   结果返回True/False; 即表示找到此记录/找不到,具体用法请按F1看帮助 4、CXGRID            i :=  View1.Controller.FocusedRowIndex;
          ds.Close;
          Ds.Open;
          View1.Controller.FocusedRowIndex := i;