paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 17:59:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Clean FBlobBuffers and FUpdateBlobBuffers

Browse Source 
git-svn-id: trunk@7538 -
This commit is contained in:
joost 2007-05-31 15:27:45 +00:00
parent 2fe79903d6
commit e01b1fc85a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/bufdataset.pas
View File

@ -283,6 +283,9 @@ begin
for r := 0 to High(FUpdateBlobBuffers) do for r := 0 to High(FUpdateBlobBuffers) do
FreeBlobBuffer(FUpdateBlobBuffers[r]); FreeBlobBuffer(FUpdateBlobBuffers[r]);
SetLength(FBlobBuffers,0);
SetLength(FUpdateBlobBuffers,0);
FFirstRecBuf:= nil; FFirstRecBuf:= nil;
SetLength(FFieldBufPositions,0); SetLength(FFieldBufPositions,0);
@ -1077,7 +1080,8 @@ procedure TBufDataset.FreeBlobBuffer(var ABlobBuffer: PBlobBuffer);
begin begin
if not Assigned(ABlobBuffer) then Exit; if not Assigned(ABlobBuffer) then Exit;
FreeMem(ABlobBuffer^.Buffer, ABlobBuffer^.Size); FreeMem(ABlobBuffer^.Buffer, ABlobBuffer^.Size);
FreeMem(ABlobBuffer, SizeOf(TBlobBuffer)); Dispose(ABlobBuffer);
ABlobBuffer := Nil;
end; end;
function TBufBlobStream.Seek(Offset: Longint; Origin: Word): Longint; function TBufBlobStream.Seek(Offset: Longint; Origin: Word): Longint;