标签:ble dataset val first grid click mtab time isa
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;
标签:ble dataset val first grid click mtab time isa
原文地址:http://www.cnblogs.com/yangxuming/p/6537126.html