Browse Source

* Add delphi compatible constant

Michaël Van Canneyt 1 year ago
parent
commit
972b961f2b
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/rtlconst.inc

+ 1 - 1
rtl/objpas/rtlconst.inc

@@ -580,6 +580,7 @@ ResourceString
   sCannotManuallyConstructDevice = 'Manual construction of TDeviceInfo is not supported'; 
   SArgumentOutOfRange = 'Argument out of range';
   StrNoClientClass = 'The client cannot be an instance of the class %s';  
+  ListIndexErrorExt = 'List index out of bounds (%0:d).  %2:s object range is 0..%1:d';
   
   { Classes observer support }
   SErrNotIObserverInterface = 'Interface is not an IObserver interface';
@@ -588,7 +589,6 @@ ResourceString
   SErrObserverNoSinglecast = 'No singlecast observer interface found';
   SerrObserverNoMulticastFound = 'No multicast observer interface (%d) found';
   SErrObserverNotAvailable = 'Observer type (%d) not available';
-
 implementation
 
 end.