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

* Fixed access violation on destroy

Browse Source 
git-svn-id: trunk@8355 -
This commit is contained in:
michael 2007-09-02 16:20:13 +00:00
parent cadcfa76d8
commit 19f4e1e9f6
1 changed files with 3 additions and 3 deletions

6
packages/fcl-db/src/memds/memds.pp
View File

@ -606,12 +606,12 @@ begin
end;
FIsOpen:=False;
FFileModified:=False;
BindFields(False);
// BindFields(False);
if DefaultFields then begin
DestroyFields;
end;
FreeAndNil(FFieldOffsets);
FreeAndNil(FFieldSizes);
FreeMem(FFieldOffsets);
FreeMem(FFieldSizes);
end;
procedure TMemDataset.InternalPost;