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

* TStringHelper alias.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-24 08:34:13 +02:00
parent fb5b891c45
commit a3beff94dc
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/sysutils/syshelph.inc
View File

@ -206,6 +206,8 @@ Type
property Length: SizeInt read GetLength; property Length: SizeInt read GetLength;
end; end;
TCurrencyHelper = type helper for Currency TCurrencyHelper = type helper for Currency
private private
function GetMaxValue: Currency; inline; function GetMaxValue: Currency; inline;
@ -655,7 +657,13 @@ Type
property Length: SizeInt read GetLength; property Length: SizeInt read GetLength;
end; end;
{$IF SIZEOF(CHAR)=2}
TStringHelper = Type helper(TUnicodeStringHelper) for UnicodeString
end;
{$ELSE}
TStringHelper = Type helper(TAnsiStringHelper) for ansistring
end;
{$ENDIF}
{$IFDEF FPC_HAS_TYPE_SINGLE} {$IFDEF FPC_HAS_TYPE_SINGLE}
TSingleHelper = Type Helper for Single TSingleHelper = Type Helper for Single