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

* Allow descendentsto set default buffer size

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-07-29 03:17:23 +02:00
parent 3a07aadba2
commit 2f355fe96b
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-db/src/base/dataset.inc
View File

@ -1127,6 +1127,11 @@ begin
end; end;
end; end;
function TDataset.GetDefaultBufferCount : Cardinal;
begin
Result:=DefaultBufferCount;
end;
procedure TDataSet.RecalcBufListSize; procedure TDataSet.RecalcBufListSize;
@ -1146,7 +1151,11 @@ begin
if IsUniDirectional then if IsUniDirectional then
ABufferCount := 1 ABufferCount := 1
else else
ABufferCount := DefaultBufferCount; begin
ABufferCount := GetDefaultBufferCount;
if aBufferCount<2 then
aBufferCount:=2;
end;
for i := 0 to MyDataSourceCount - 1 do for i := 0 to MyDataSourceCount - 1 do
for j := 0 to MyDataSources[i].DataLinkCount - 1 do for j := 0 to MyDataSources[i].DataLinkCount - 1 do

1
packages/fcl-db/src/base/db.pas
View File

@ -1723,6 +1723,7 @@ type
procedure SetSparseArrays(AValue: Boolean); procedure SetSparseArrays(AValue: Boolean);
procedure DoInsertAppendRecord(const Values: array of const; DoAppend : boolean); procedure DoInsertAppendRecord(const Values: array of const; DoAppend : boolean);
protected protected
function GetDefaultBufferCount: Cardinal; virtual;
procedure RecalcBufListSize; procedure RecalcBufListSize;
procedure ActivateBuffers; virtual; procedure ActivateBuffers; virtual;
procedure BindFields(Binding: Boolean); procedure BindFields(Binding: Boolean);