* Some delphi compatibility constants

rtl/objpas/rtlconst.inc

@@ -18,6 +18,10 @@ unit RtlConsts;
 
 interface
 
+Const
+  SEmpty : string = 'Empty';  
+
+
 ResourceString
 
 { ---------------------------------------------------------------------
@@ -33,6 +37,7 @@ ResourceString
   SAllButton                    = '&All';
   SAllFilter                    = 'All files';
   SAncestorNotFound             = 'Ancestor class for "%s" not found';
+  SArgumentInvalid              = 'Invalid argument';
   SArgumentNil                  = 'Argument must not be nil';
   SAssignError                  = 'Cannot assign a %s to a %s';
   SAsyncSocketError             = 'Asynchronous socket error: %d';
@@ -168,6 +173,7 @@ ResourceString
   SInvalidImage                 = 'Invalid stream format';
   SInvalidImageList             = 'Invalid ImageList';
   SInvalidImageSize             = 'Invalid image size';
+  SInvalidKnownFilename         = 'Invalid filename - %s';
   SInvalidMask                  = '"%s" is not a valid mask at (%d)';
   SInvalidMemoSize              = 'Text larger than memo capacity';
   SInvalidMetafile              = 'Invalid Metafile';