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

+ added TDataset.Tempbuffer again (undid revision 830)

Browse Source 
git-svn-id: trunk@1566 -
This commit is contained in:
joost 2005-10-22 22:08:04 +00:00
parent ef72bba537
commit 412cd65c52
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcl/db/dataset.inc
View File

@ -964,6 +964,12 @@ begin
end;
end;
Function TDataset.Tempbuffer: PChar;
begin
Result := FBuffers[FRecordCount];
end;
Procedure TDataset.UpdateIndexDefs;
begin

1
fcl/db/db.pp
View File

@ -1045,6 +1045,7 @@ type
procedure SetRecNo(Value: Longint); virtual;
procedure SetState(Value: TDataSetState);
function SetTempState(const Value: TDataSetState): TDataSetState;
Function Tempbuffer: PChar;
procedure UpdateIndexDefs; virtual;
property ActiveRecord: Longint read FActiveRecord;
property CurrentRecord: Longint read FCurrentRecord;