Browse Source

+ Moved resourcestrings to dbconst

michael 21 years ago
parent
commit
eaa0c67cd9
2 changed files with 10 additions and 4 deletions
  1. 5 1
      fcl/db/dbconst.pp
  2. 5 3
      fcl/db/dbwhtml.pp

+ 5 - 1
fcl/db/dbconst.pp

@@ -27,6 +27,7 @@ Const
   SDatasetRegistered       = 'Dataset already registered : "%s"';
   SDuplicateFieldName      = 'Duplicate fieldname : "%s"';
   SErrAssTransaction       = 'Cannot assign transaction while old transaction active!';
+  SErrColumnNotFound       = 'Column "%s" not found.';
   SErrDatabasenAssigned    = 'Database not assigned!';
   SErrNoDatabaseAvailable  = 'Invalid operation: Not attached to database';
   SErrNoSelectStatement    = 'Cannot open a non-select statement';
@@ -64,7 +65,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2004-10-10 14:45:51  michael
+  Revision 1.2  2004-10-16 09:20:25  michael
+  + Moved resourcestrings to dbconst
+
+  Revision 1.1  2004/10/10 14:45:51  michael
   + Use of dbconst for resource strings
 
 

+ 5 - 3
fcl/db/dbwhtml.pp

@@ -183,8 +183,7 @@ Type
 
 Implementation
 
-Resourcestring
-  SErrColumnNotFound = 'Column "%s" not found.';
+uses dbconst;
 
 { TTableColumns }
 
@@ -695,7 +694,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.6  2003-10-28 08:42:01  michael
+  Revision 1.7  2004-10-16 09:20:25  michael
+  + Moved resourcestrings to dbconst
+
+  Revision 1.6  2003/10/28 08:42:01  michael
   + Added ColumnByName method to TTAbleColumns
 
   Revision 1.4  2003/10/03 22:43:17  michael