From feed8adfa6c3b4d3aee23e6920dd33d319d9518e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 15 Feb 2014 10:27:17 +0000
Subject: [PATCH] * Correct use of FieldDefs factory

git-svn-id: trunk@26778 -
---
 packages/fcl-db/src/base/xmldatapacketreader.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/base/xmldatapacketreader.pp b/packages/fcl-db/src/base/xmldatapacketreader.pp
index 698dd3e09e..94b02bb820 100644
--- a/packages/fcl-db/src/base/xmldatapacketreader.pp
+++ b/packages/fcl-db/src/base/xmldatapacketreader.pp
@@ -157,7 +157,7 @@ begin
     AFieldNode := item[i];
     if AFieldNode.CompareName('FIELD')=0 then
       begin
-      AFieldDef := TFieldDef.Create(DataSet.FieldDefs);
+      AFieldDef := Dataset.FieldDefs.AddFieldDef;
       AFieldDef.DisplayName:=GetNodeAttribute(AFieldNode,'fieldname');
       AFieldDef.Name:=GetNodeAttribute(AFieldNode,'attrname');
       AFieldDef.Size:=StrToIntDef(GetNodeAttribute(AFieldNode,'width'),0);