From 602ba37d6b27592208772c65a09a491941cd24d0 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 14 Mar 2000 19:06:04 +0000
Subject: [PATCH] + everyting compiles again

---
 fcl/db/db.pp      | 9 ++++++---
 fcl/db/fields.inc | 7 +++++--
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/fcl/db/db.pp b/fcl/db/db.pp
index ceb637ec02..a7415608df 100644
--- a/fcl/db/db.pp
+++ b/fcl/db/db.pp
@@ -198,7 +198,7 @@ type
     function HasParent: Boolean; override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure PropertyChanged(LayoutAffected: Boolean);
-    procedure ReadState(Reader: TReader); override;
+    procedure ReadState(Reader: TAbstractReader); override;
     procedure SetAsBoolean(AValue: Boolean); virtual;
     procedure SetAsDateTime(AValue: TDateTime); virtual;
     procedure SetAsFloat(AValue: Extended); virtual;
@@ -952,7 +952,7 @@ type
     property RecNo: Longint read FRecNo write FRecNo;
     property RecordSize: Word read FRecordSize;
     property State: TDataSetState read FState;
-    property Fields : TFields Read FFieldList;
+//    property Fields : TFields Read FFieldList;
     property Filter: string read FFilterText write FFilterText;
     property Filtered: Boolean read FFiltered write FFiltered default False;
     property FilterOptions: TFilterOptions read FFilterOptions write FFilterOptions;
@@ -1260,7 +1260,10 @@ end.
 
 {
   $Log$
-  Revision 1.8  2000-01-07 01:24:32  peter
+  Revision 1.9  2000-03-14 19:06:04  michael
+  + everyting compiles again
+
+  Revision 1.8  2000/01/07 01:24:32  peter
     * updated copyright to 2000
 
   Revision 1.7  2000/01/06 01:20:32  peter
diff --git a/fcl/db/fields.inc b/fcl/db/fields.inc
index 504867b6a7..059d40e4b6 100644
--- a/fcl/db/fields.inc
+++ b/fcl/db/fields.inc
@@ -406,7 +406,7 @@ begin
       FDataset.DataEvent(deDatasetchange,0);
 end;
 
-procedure TField.ReadState(Reader: TReader); 
+procedure TField.ReadState(Reader: TAbstractReader); 
 
 begin
   //!! To be implemented
@@ -1752,7 +1752,10 @@ end;
 
 {
   $Log$
-  Revision 1.7  2000-01-07 01:24:32  peter
+  Revision 1.8  2000-03-14 19:06:04  michael
+  + everyting compiles again
+
+  Revision 1.7  2000/01/07 01:24:32  peter
     * updated copyright to 2000
 
   Revision 1.6  2000/01/06 01:20:32  peter