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

* Patch from Luiz Americo to clear fielddefs when filling fielddefs

Browse Source 
git-svn-id: trunk@13868 -
This commit is contained in:
michael 2009-10-16 12:05:26 +00:00
parent c8d72ce4aa
commit 2a61a28910
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/paradox/paradox.pp
View File

@ -417,6 +417,7 @@ Var
pxf : Ppxfield_t; pxf : Ppxfield_t;
begin begin
FieldDefs.Clear;
pxf:=PX_get_fields(FDoc); pxf:=PX_get_fields(FDoc);
ACount:= PX_get_num_fields(FDoc); ACount:= PX_get_num_fields(FDoc);
ReallocMem(FOffsets,ACount*SizeOf(Integer)); ReallocMem(FOffsets,ACount*SizeOf(Integer));
@ -549,6 +550,9 @@ end;
procedure TParadox.InternalClose; procedure TParadox.InternalClose;
begin begin
BindFields(False);
if DefaultFields then
DestroyFields;
FreeAndNil(FParser); FreeAndNil(FParser);
FreeMem(FOffsets); FreeMem(FOffsets);
FOffSets:=Nil; FOffSets:=Nil;