pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

On clone record in function CloneRecoar also skip ReadOnly fields.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2372 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-03-31 14:51:40 +00:00
parent e061c01c66
commit acfeafbd7d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/dbutils.pas
View File

@ -985,7 +985,7 @@ begin
for i:=0 to DataSet.FieldCount-1 do for i:=0 to DataSet.FieldCount-1 do
begin begin
if (DataSet.Fields[i].FieldKind in [fkData]) and (not DataSet.Fields[i].IsBlob) if (DataSet.Fields[i].FieldKind in [fkData]) and (not DataSet.Fields[i].IsBlob) and (not DataSet.Fields[i].ReadOnly)
and (not FieldInArray(DataSet.Fields[i], IgnoreFields)) then and (not FieldInArray(DataSet.Fields[i], IgnoreFields)) then
begin begin
DataSet.Fields[i].Value:=Rec[i]; DataSet.Fields[i].Value:=Rec[i];