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

* Changed all occurences of TAbstractReader to TReader, as FCL streaming

Browse Source 
is source compatible to VCL streaming now (for quite a while, BTW)
This commit is contained in:
sg 2000-09-02 09:36:36 +00:00
parent 17d714aba8
commit 664bc98f53
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/db/db.pp
View File

@ -198,7 +198,7 @@ type
function HasParent: Boolean; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure PropertyChanged(LayoutAffected: Boolean);
procedure ReadState(Reader: TAbstractReader); override;
procedure ReadState(Reader: TReader); override;
procedure SetAsBoolean(AValue: Boolean); virtual;
procedure SetAsDateTime(AValue: TDateTime); virtual;
procedure SetAsFloat(AValue: Extended); virtual;
@ -1260,7 +1260,11 @@ end.
{
$Log$
Revision 1.2 2000-07-13 11:32:56 michael
Revision 1.3 2000-09-02 09:36:36 sg
* Changed all occurences of TAbstractReader to TReader, as FCL streaming
is source compatible to VCL streaming now (for quite a while, BTW)
Revision 1.2 2000/07/13 11:32:56 michael
+ removed logs
}

8
fcl/db/fields.inc
View File

@ -406,7 +406,7 @@ begin
FDataset.DataEvent(deDatasetchange,0);
end;
procedure TField.ReadState(Reader: TAbstractReader);
procedure TField.ReadState(Reader: TReader);
begin
//!! To be implemented
@ -1752,7 +1752,11 @@ end;
{
$Log$
Revision 1.2 2000-07-13 11:32:56 michael
Revision 1.3 2000-09-02 09:36:36 sg
* Changed all occurences of TAbstractReader to TReader, as FCL streaming
is source compatible to VCL streaming now (for quite a while, BTW)
Revision 1.2 2000/07/13 11:32:56 michael
+ removed logs
}