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

Implemented the as abstract defined methods of TDataset as empty stubs as listed in bug #12136 for Delphi compatibility

Browse Source 
git-svn-id: trunk@12245 -
This commit is contained in:
joost 2008-11-27 12:14:47 +00:00
parent 138280cb6d
commit dd4b94357e
2 changed files with 90 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -504,6 +504,31 @@ begin
Result:=nil; Result:=nil;
end; end;
function TDataSet.GetRecordSize: Word;
begin
Result := 0;
end;
procedure TDataSet.InternalAddRecord(Buffer: Pointer; AAppend: Boolean);
begin
// empty stub
end;
procedure TDataSet.InternalDelete;
begin
// empty stub
end;
procedure TDataSet.InternalFirst;
begin
// empty stub
end;
procedure TDataSet.InternalGotoBookmark(ABookmark: Pointer);
begin
// empty stub
end;
function TDataSet.GetFieldData(Field: TField; Buffer: Pointer): Boolean; function TDataSet.GetFieldData(Field: TField; Buffer: Pointer): Boolean;
begin begin
@ -973,6 +998,16 @@ begin
ShowException(ExceptObject,ExceptAddr); ShowException(ExceptObject,ExceptAddr);
end; end;
procedure TDataSet.InternalInitRecord(Buffer: PChar);
begin
// empty stub
end;
procedure TDataSet.InternalLast;
begin
// empty stub
end;
procedure TDataSet.InternalPost; procedure TDataSet.InternalPost;
Procedure Checkrequired; Procedure Checkrequired;
@ -992,6 +1027,21 @@ begin
Checkrequired; Checkrequired;
end; end;
procedure TDataSet.InternalSetToRecord(Buffer: PChar);
begin
// empty stub
end;
procedure TDataSet.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);
begin
// empty stub
end;
procedure TDataSet.SetBookmarkData(Buffer: PChar; Data: Pointer);
begin
// empty stub
end;
procedure TDataSet.SetUniDirectional(const Value: Boolean); procedure TDataSet.SetUniDirectional(const Value: Boolean);
begin begin
FIsUniDirectional := Value; FIsUniDirectional := Value;
@ -1322,6 +1372,26 @@ begin
// Empty Abstract // Empty Abstract
end; end;
function TDataSet.AllocRecordBuffer: PChar;
begin
Result := nil;
end;
procedure TDataSet.FreeRecordBuffer(var Buffer: PChar);
begin
// empty stub
end;
procedure TDataSet.GetBookmarkData(Buffer: PChar; Data: Pointer);
begin
// empty stub
end;
function TDataSet.GetBookmarkFlag(Buffer: PChar): TBookmarkFlag;
begin
Result := bfCurrent;
end;
Function TDataset.ControlsDisabled: Boolean; Function TDataset.ControlsDisabled: Boolean;
begin begin

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

@ -1233,30 +1233,30 @@ type
property CalcFieldsSize: Longint read FCalcFieldsSize; property CalcFieldsSize: Longint read FCalcFieldsSize;
property InternalCalcFields: Boolean read FInternalCalcFields; property InternalCalcFields: Boolean read FInternalCalcFields;
property Constraints: TCheckConstraints read FConstraints write FConstraints; property Constraints: TCheckConstraints read FConstraints write FConstraints;
protected { abstract methods } function AllocRecordBuffer: PChar; virtual;
function AllocRecordBuffer: PChar; virtual; abstract; procedure FreeRecordBuffer(var Buffer: PChar); virtual;
procedure FreeRecordBuffer(var Buffer: PChar); virtual; abstract; procedure GetBookmarkData(Buffer: PChar; Data: Pointer); virtual;
procedure GetBookmarkData(Buffer: PChar; Data: Pointer); virtual; abstract; function GetBookmarkFlag(Buffer: PChar): TBookmarkFlag; virtual;
function GetBookmarkFlag(Buffer: PChar): TBookmarkFlag; virtual; abstract;
function GetDataSource: TDataSource; virtual; function GetDataSource: TDataSource; virtual;
function GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean): TGetResult; virtual; abstract; function GetRecordSize: Word; virtual;
function GetRecordSize: Word; virtual; abstract; procedure InternalAddRecord(Buffer: Pointer; AAppend: Boolean); virtual;
procedure InternalAddRecord(Buffer: Pointer; AAppend: Boolean); virtual; abstract; procedure InternalDelete; virtual;
procedure InternalClose; virtual; abstract; procedure InternalFirst; virtual;
procedure InternalDelete; virtual; abstract; procedure InternalGotoBookmark(ABookmark: Pointer); virtual;
procedure InternalFirst; virtual; abstract;
procedure InternalGotoBookmark(ABookmark: Pointer); virtual; abstract;
procedure InternalHandleException; virtual; procedure InternalHandleException; virtual;
procedure InternalInitFieldDefs; virtual; abstract; procedure InternalInitRecord(Buffer: PChar); virtual;
procedure InternalInitRecord(Buffer: PChar); virtual; abstract; procedure InternalLast; virtual;
procedure InternalLast; virtual; abstract;
procedure InternalOpen; virtual; abstract;
procedure InternalPost; virtual; procedure InternalPost; virtual;
procedure InternalSetToRecord(Buffer: PChar); virtual; abstract; procedure InternalSetToRecord(Buffer: PChar); virtual;
function IsCursorOpen: Boolean; virtual; abstract; procedure SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag); virtual;
procedure SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag); virtual; abstract; procedure SetBookmarkData(Buffer: PChar; Data: Pointer); virtual;
procedure SetBookmarkData(Buffer: PChar; Data: Pointer); virtual; abstract;
procedure SetUniDirectional(const Value: Boolean); procedure SetUniDirectional(const Value: Boolean);
protected { abstract methods }
function GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean): TGetResult; virtual; abstract;
procedure InternalClose; virtual; abstract;
procedure InternalOpen; virtual; abstract;
procedure InternalInitFieldDefs; virtual; abstract;
function IsCursorOpen: Boolean; virtual; abstract;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;