瀏覽代碼

* Add delphi compatible constant

Michaël Van Canneyt 1 年之前
父節點
當前提交
972b961f2b
共有 1 個文件被更改,包括 1 次插入1 次删除
  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.