paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented TBufDataset.Packetrecord

Browse Source 
git-svn-id: trunk@2842 -
This commit is contained in:
joost 2006-03-10 20:46:48 +00:00
parent 01bfed76e3
commit 5f801f2b42
3 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/db/bufdataset.inc
View File

@ -23,10 +23,16 @@ begin
Inherited Create(AOwner); Inherited Create(AOwner);
SetLength(FUpdateBuffer,0); SetLength(FUpdateBuffer,0);
BookmarkSize := sizeof(TBufBookmark); BookmarkSize := sizeof(TBufBookmark);
// temporary set it here
FPacketRecords := 10; FPacketRecords := 10;
end; end;
procedure TBufDataset.SetPacketRecords(aValue : integer);
begin
if aValue > 0 then FPacketRecords := aValue
else DatabaseError(SInvPacketRecordsValue);
end;
destructor TBufDataset.Destroy; destructor TBufDataset.Destroy;
begin begin
@ -295,8 +301,6 @@ var i : integer;
begin begin
i := 0; i := 0;
if FPacketRecords > 0 then
begin
if FBBufferCount < FBRecordCount+FPacketRecords then if FBBufferCount < FBRecordCount+FPacketRecords then
begin begin
FBBufferCount := FBBuffercount + FPacketRecords; FBBufferCount := FBBuffercount + FPacketRecords;
@ -314,7 +318,6 @@ begin
FreeRecordBuffer(FBBuffers[FBRecordCount+i]); FreeRecordBuffer(FBBuffers[FBRecordCount+i]);
end; end;
FBRecordCount := FBRecordCount + i; FBRecordCount := FBRecordCount + i;
end;
result := i; result := i;
end; end;

3
fcl/db/db.pp
View File

@ -1515,6 +1515,7 @@ type
function GetFieldSize(FieldDef : TFieldDef) : longint; function GetFieldSize(FieldDef : TFieldDef) : longint;
function GetRecordUpdateBuffer(rno : integer;var RecUpdBuf : PRecUpdateBuffer) : boolean; function GetRecordUpdateBuffer(rno : integer;var RecUpdBuf : PRecUpdateBuffer) : boolean;
function GetFieldUpdateBuffer(fieldno : integer;RecUpdBuf : PRecUpdateBuffer;var FieldUpdBuf : pFieldUpdateBuffer) : boolean; function GetFieldUpdateBuffer(fieldno : integer;RecUpdBuf : PRecUpdateBuffer;var FieldUpdBuf : pFieldUpdateBuffer) : boolean;
procedure SetPacketRecords(aValue : integer);
protected protected
procedure SetRecNo(Value: Longint); override; procedure SetRecNo(Value: Longint); override;
function GetRecNo: Longint; override; function GetRecNo: Longint; override;
@ -1557,6 +1558,8 @@ type
procedure ApplyUpdates; virtual; procedure ApplyUpdates; virtual;
procedure CancelUpdates; virtual; procedure CancelUpdates; virtual;
destructor Destroy; override; destructor Destroy; override;
published
property PacketRecords : Integer read FPacketRecords write FPacketRecords default 10;
end; end;
{ TParam } { TParam }

1
fcl/db/dbconst.pp
View File

@ -75,6 +75,7 @@ Const
SNoParseSQL = '%s is only possible if ParseSQL is True'; SNoParseSQL = '%s is only possible if ParseSQL is True';
SLookupInfoError = 'Lookup information for field ''%s'' is incomplete'; SLookupInfoError = 'Lookup information for field ''%s'' is incomplete';
SUnsupportedFieldType = 'Fieldtype %s is not supported'; SUnsupportedFieldType = 'Fieldtype %s is not supported';
SInvPacketRecordsValue = 'PacketRecords has to be larger then 0';
Implementation Implementation