* Patch from Petr Kristan to fix TDataSet.SetFieldDefs

git-svn-id: trunk@10615 -

packages/fcl-db/src/base/dataset.inc

@@ -824,6 +824,12 @@ begin
     end;
 end;
 
+Procedure TDataSet.SetFieldDefs(AFieldDefs: TFieldDefs);
+
+begin
+  FFieldDefs.Assign(AFieldDefs);
+end;
+
 procedure TDataSet.InitFieldDefsFromfields;
 var i : integer;
 begin

packages/fcl-db/src/base/db.pas

@@ -1130,6 +1130,7 @@ type
     Function GetActive : boolean;
     Procedure UnRegisterDataSource(ADatasource : TDatasource);
     Procedure UpdateFieldDefs;
+    Procedure SetFieldDefs(AFieldDefs: TFieldDefs);
   protected
     procedure RecalcBufListSize;
     procedure ActivateBuffers; virtual;
@@ -1312,7 +1313,7 @@ type
     property DefaultFields: Boolean read FDefaultFields;
     property EOF: Boolean read FEOF;
     property FieldCount: Longint read GetFieldCount;
-    property FieldDefs: TFieldDefs read FFieldDefs write FFieldDefs;
+    property FieldDefs: TFieldDefs read FFieldDefs write SetFieldDefs;
 //    property Fields[Index: Longint]: TField read GetField write SetField;
     property Found: Boolean read FFound;
     property Modified: Boolean read FModified write SetModified;