paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct use of FieldDefs factory

Browse Source 
git-svn-id: trunk@26778 -
This commit is contained in:
michael 2014-02-15 10:27:17 +00:00
parent 53ba347851
commit feed8adfa6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/base/xmldatapacketreader.pp
View File

@ -157,7 +157,7 @@ begin
AFieldNode := item[i]; AFieldNode := item[i];
if AFieldNode.CompareName('FIELD')=0 then if AFieldNode.CompareName('FIELD')=0 then
begin begin
AFieldDef := TFieldDef.Create(DataSet.FieldDefs); AFieldDef := Dataset.FieldDefs.AddFieldDef;
AFieldDef.DisplayName:=GetNodeAttribute(AFieldNode,'fieldname'); AFieldDef.DisplayName:=GetNodeAttribute(AFieldNode,'fieldname');
AFieldDef.Name:=GetNodeAttribute(AFieldNode,'attrname'); AFieldDef.Name:=GetNodeAttribute(AFieldNode,'attrname');
AFieldDef.Size:=StrToIntDef(GetNodeAttribute(AFieldNode,'width'),0); AFieldDef.Size:=StrToIntDef(GetNodeAttribute(AFieldNode,'width'),0);