* Add delphi compatible constant

This commit is contained in:
Michaël Van Canneyt 2023-11-09 11:23:13 +01:00
parent 9b9623b289
commit 972b961f2b

View File

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