2
0
Эх сурвалжийг харах

* Add delphi-compatible constant (including the typo in the name ;))

Michaël Van Canneyt 1 жил өмнө
parent
commit
ad93958e5b

+ 2 - 0
rtl/objpas/rtlconst.inc

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