Code: Select all
Limits.Open;
Limits.First;
for Iter := 1 to LimitParamCount do
begin
Limit := GetDefaultLimit(Iter, AModel);
if Limit > 0 then
begin
Limits.Append;
LimitsModel.Value := AModel;
LimitsParamID.Value := Iter;
LimitsLimit.Value := Limit;
Limits.Post; // here I having error message !!!
end;Code: Select all
INSERT INTO LimitValues
(Model, ParamID, Limit)
VALUESWhy DBMonitor does not allow to copy the text of event?