From acfeafbd7d1364cc0bf125079749d2ddfacf93d4 Mon Sep 17 00:00:00 2001 From: alexs75 Date: Sat, 31 Mar 2012 14:51:40 +0000 Subject: [PATCH] On clone record in function CloneRecoar also skip ReadOnly fields. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2372 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/dbutils.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/rx/dbutils.pas b/components/rx/dbutils.pas index 116249283..1d206f801 100644 --- a/components/rx/dbutils.pas +++ b/components/rx/dbutils.pas @@ -985,7 +985,7 @@ begin for i:=0 to DataSet.FieldCount-1 do 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 begin DataSet.Fields[i].Value:=Rec[i];