[fpc-devel] Recent changes to TField.SetData

[LacaK]

Small optimalization use dsWriteModes instead of fixed set:
>
>
> -       if not (State in [dsEdit, dsInsert, dsFilter, dsCalcFields]) 
> then //here should be IMO also dsNewValue
+ if not (FDataSet.State in dsWriteModes) then

>          DatabaseErrorFmt(SNotEditing,[FDataSet.Name],FDataSet);
>
>        if ReadOnly and (FieldNo>0) and not (FDataSet.State in 
> [dsSetKey, dsFilter]) then
>          DatabaseErrorFmt(SReadOnlyField, [DisplayName], Self);
>
>  829   FDataSet.SetFieldData(Self,Buffer, NativeFormat);
> -------------------------------------------------------------------------- 
>

Laco.