소스 검색

* 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.