* Better fix for r20940 based on patch from Marcelo B Paula, bug #17813

git-svn-id: trunk@20941 -

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

@@ -495,7 +495,6 @@ type
     procedure DataEvent(Event: TDataEvent; Info: Ptrint); override;
     procedure BeforeRefreshOpenCursor; virtual;
     procedure DoFilterRecord(out Acceptable: Boolean); virtual;
-    procedure CreateFieldDefs; virtual;
   {abstracts, must be overidden by descendents}
     function Fetch : boolean; virtual;
     function LoadField(FieldDef : TFieldDef;buffer : pointer; out CreateBlob : boolean) : boolean; virtual;
@@ -2696,7 +2695,7 @@ begin
     end
   else if (fields.Count>0) then
     begin
-    CreateFieldDefs;
+    InitFieldDefsFromfields;
     BindFields(True);
     Open;
     end
@@ -2884,17 +2883,6 @@ begin
     Acceptable := Boolean((FParser.ExtractFromBuffer(GetCurrentBuffer))^);
 end;
 
-procedure TCustomBufDataset.CreateFieldDefs;
-
-Var
-  I : longint;
-  FieldDef: TFieldDef;
-begin
-  For I:=0 to FieldCount-1 do
-    with Fields.Fields[I] do if FieldKind=fkData then
-      FieldDefs.Add(FieldName,DataType,Size,Required);
-end;
-
 procedure TCustomBufDataset.SetFilterText(const Value: String);
 begin
   if Value = Filter then