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

+ fixed dataset opening buffer issues

Browse Source
This commit is contained in:
michael 2003-05-06 12:08:52 +00:00
parent c71bf952e1
commit 18f0316d81
1 changed files with 17 additions and 2 deletions

19
fcl/db/dataset.inc
View File

@ -690,6 +690,9 @@ procedure TDataSet.SetBufferCount(const AValue: Longint);
Var
ShiftCount: Integer;
begin
{$ifdef dsdebug}
Writeln('in SetBufferCount(',AValue,')');
{$endif}
If (FBufferCount=AValue) Then
exit;
If AValue<FRecordCount Then
@ -1461,9 +1464,15 @@ var
i, j, MaxValue: Integer;
DataLink: TDataLink;
begin
{$ifdef dsdebug}
Writeln('Recalculating buffer list size - check cursor');
{$endif}
If Not IsCursorOpen Then
Exit;
MaxValue := 0;
{$ifdef dsdebug}
Writeln('Recalculating buffer list size');
{$endif}
MaxValue := DefaultBufferCount;
for i := 0 to FDataSources.Count - 1 do
for j := 0 to TDataSource(FDataSources[i]).DataLinks.Count - 1 do
begin
@ -1471,6 +1480,9 @@ begin
if DataLink.BufferCount>MaxValue then
MaxValue:=DataLink.BufferCount;
end;
{$ifdef dsdebug}
Writeln('calling Setbuffercount');
{$endif}
SetBufferCount(MaxValue); //SetBufListSize(MaxValue);
end;
@ -1672,7 +1684,10 @@ end;
{
$Log$
Revision 1.7 2003-02-20 19:25:19 michael
Revision 1.8 2003-05-06 12:08:52 michael
+ fixed dataset opening buffer issues
Revision 1.7 2003/02/20 19:25:19 michael
+ Fixes from Jesus Reyes
Revision 1.6 2002/09/07 15:15:22 peter