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

+ Fix in setbuflistsize for when Value=-1

Browse Source
This commit is contained in:
michael 2004-01-05 21:21:38 +00:00
parent 2610c179f1
commit 736c418d14
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fcl/db/dataset.inc
View File

@ -786,10 +786,15 @@ begin
{$ifdef dsdebug}
Writeln (' Freeing buffers :',FBufferCount-Value);
{$endif}
For I:=Value+1 to FBufferCount do
FreeRecordBuffer(FBuffers[i]);
ReAllocMem(FBuffers,(Value+1)*SizeOf(Pchar));
If Assigned(FBuffers) then
begin
For I:=Value+1 to FBufferCount do
FreeRecordBuffer(FBuffers[i]);
ReAllocMem(FBuffers,(Value+1)*SizeOf(Pchar));
end;
end;
If Value=-1 then
Value:=0;
FBufferCount:=Value;
{$ifdef dsdebug}
Writeln (' SetBufListSize: Final FBufferCount=',FBufferCount);
@ -1690,7 +1695,10 @@ end;
{
$Log$
Revision 1.10 2003-11-09 21:23:10 michael
Revision 1.11 2004-01-05 21:21:38 michael
+ Fix in setbuflistsize for when Value=-1
Revision 1.10 2003/11/09 21:23:10 michael
+ Patch from Micha Nelissen, fixing some Delphi compatibility issues
Revision 1.9 2003/10/06 17:04:28 florian