首页 > 代码库 > kbmmemtable 遍历
kbmmemtable 遍历
procedure TForm6.btn6Click(Sender: TObject);
var
fld_Id:TIntegerField;
fld_Value:TStringField;
fld_Time:TDateTimeField;
id:Integer;
begin
//循环比较最小值
cxGrid1DBTableView1.DataController.DataSource := ds1;
ds1.DataSet := kbmtbl1;
with kbmtbl1 do
begin
Open;
fld_Id:=TIntegerField(FieldByName(‘Id‘));
fld_Value:=TStringField(FieldByName(‘Value‘));
fld_Time:=TDateTimeField(FieldByName(‘Time‘));
DisableControls;
try
First;
id := fld_Id.AsInteger;
while not Eof do
begin
if id > fld_Id.AsInteger then
id := fld_Id.AsInteger;
Next;
end;
Locate(‘Id‘,id,[]);
finally
EnableControls;
end;
end;
end;
kbmmemtable 遍历
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。