Browse Source

+ Changes in streaming applied here too

michael 25 years ago
parent
commit
cc21cb8f12
2 changed files with 63 additions and 10 deletions
  1. 33 5
      fcl/db/db.pp
  2. 30 5
      fcl/db/fields.inc

+ 33 - 5
fcl/db/db.pp

@@ -198,7 +198,7 @@ type
     function HasParent: Boolean; override;
     function HasParent: Boolean; override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure PropertyChanged(LayoutAffected: Boolean);
     procedure PropertyChanged(LayoutAffected: Boolean);
-    procedure ReadState(Reader: TAbstractReader); override;
+    procedure ReadState(Reader: TReader); override;
     procedure SetAsBoolean(AValue: Boolean); virtual;
     procedure SetAsBoolean(AValue: Boolean); virtual;
     procedure SetAsDateTime(AValue: TDateTime); virtual;
     procedure SetAsDateTime(AValue: TDateTime); virtual;
     procedure SetAsFloat(AValue: Extended); virtual;
     procedure SetAsFloat(AValue: Extended); virtual;
@@ -1260,7 +1260,35 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2000-07-13 11:32:56  michael
-  + removed logs
- 
-}
+  Revision 1.1.2.1  2000-08-05 14:39:16  michael
+  + Changes in streaming applied here too
+
+  Revision 1.1  2000/07/13 06:31:27  michael
+  + Initial import
+
+  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
+    * moved out of packages/ back to topdir
+
+  Revision 1.1  2000/01/03 19:33:05  peter
+    * moved to packages dir
+
+  Revision 1.5  1999/11/12 22:53:32  michael
+  + Added append() insert() tested append. Datetime as string works now
+
+  Revision 1.4  1999/11/11 17:31:09  michael
+  + Added Checks for all simple field types.
+  + Initial implementation of Insert/Append
+
+  Revision 1.3  1999/11/09 13:33:47  peter
+    * reallocmem fixes
+
+  Revision 1.2  1999/10/24 17:07:54  michael
+  + Added copyright header
+
+}

+ 30 - 5
fcl/db/fields.inc

@@ -406,7 +406,7 @@ begin
       FDataset.DataEvent(deDatasetchange,0);
       FDataset.DataEvent(deDatasetchange,0);
 end;
 end;
 
 
-procedure TField.ReadState(Reader: TAbstractReader); 
+procedure TField.ReadState(Reader: TReader); 
 
 
 begin
 begin
   //!! To be implemented
   //!! To be implemented
@@ -1752,7 +1752,32 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2000-07-13 11:32:56  michael
-  + removed logs
- 
-}
+  Revision 1.1.2.1  2000-08-05 14:39:16  michael
+  + Changes in streaming applied here too
+
+  Revision 1.1  2000/07/13 06:31:27  michael
+  + Initial import
+
+  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
+    * moved out of packages/ back to topdir
+
+  Revision 1.1  2000/01/03 19:33:06  peter
+    * moved to packages dir
+
+  Revision 1.4  1999/11/12 22:53:32  michael
+  + Added append() insert() tested append. Datetime as string works now
+
+  Revision 1.3  1999/11/11 17:31:09  michael
+  + Added Checks for all simple field types.
+  + Initial implementation of Insert/Append
+
+  Revision 1.2  1999/10/24 17:07:54  michael
+  + Added copyright header
+
+}