DELPHI 数据集在内存中快速查询方法 -云博客

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

# windos 2024-05-05 06:03 0 45 来源：云博客

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;