OK了,
procedure TMainForm.Button1Click(Sender: TObject);
begin
DataSetBroker1.DataSet.First;
while not DataSetBroker1.DataSet.Eof do
begin
DataSetBroker1.DataSet.Edit;
DataSetBroker1.DataSet.FieldByName('Y').asFloat :=DataSetBroker1.DataSet.FieldByName('Y').asFloat;
DataSetBroker1.DataSet.Next;
end;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
DataSetBroker1.DataSet.DisableControls;
try
DataSetBroker1.DataSet.First;
while not DataSetBroker1.DataSet.Eof do
begin
DataSetBroker1.DataSet.Edit;
DataSetBroker1.DataSet.FieldByName('Y').asFloat :=DataSetBroker1.DataSet.FieldByName('Y').asFloat;
DataSetBroker1.DataSet.Next;
end;
finally
DataSetBroker1.DataSet.EnableControls;
end;
end;