paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some delphi compatibility constants

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-01 23:23:41 +01:00
parent e4ebf46df3
commit df67c18f7d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/rtlconst.inc
View File

@ -18,6 +18,10 @@ unit RtlConsts;
interface interface
Const
SEmpty : string = 'Empty';
ResourceString ResourceString
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -33,6 +37,7 @@ ResourceString
SAllButton = '&All'; SAllButton = '&All';
SAllFilter = 'All files'; SAllFilter = 'All files';
SAncestorNotFound = 'Ancestor class for "%s" not found'; SAncestorNotFound = 'Ancestor class for "%s" not found';
SArgumentInvalid = 'Invalid argument';
SArgumentNil = 'Argument must not be nil'; SArgumentNil = 'Argument must not be nil';
SAssignError = 'Cannot assign a %s to a %s'; SAssignError = 'Cannot assign a %s to a %s';
SAsyncSocketError = 'Asynchronous socket error: %d'; SAsyncSocketError = 'Asynchronous socket error: %d';
@ -168,6 +173,7 @@ ResourceString
SInvalidImage = 'Invalid stream format'; SInvalidImage = 'Invalid stream format';
SInvalidImageList = 'Invalid ImageList'; SInvalidImageList = 'Invalid ImageList';
SInvalidImageSize = 'Invalid image size'; SInvalidImageSize = 'Invalid image size';
SInvalidKnownFilename = 'Invalid filename - %s';
SInvalidMask = '"%s" is not a valid mask at (%d)'; SInvalidMask = '"%s" is not a valid mask at (%d)';
SInvalidMemoSize = 'Text larger than memo capacity'; SInvalidMemoSize = 'Text larger than memo capacity';
SInvalidMetafile = 'Invalid Metafile'; SInvalidMetafile = 'Invalid Metafile';