paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:59:41 +01: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

@ -205,6 +205,8 @@ Type
property Chars[AIndex: SizeInt]: AnsiChar read GetChar;
property Length: SizeInt read GetLength;
end;
TCurrencyHelper = type helper for Currency
private
@ -655,7 +657,13 @@ Type
property Length: SizeInt read GetLength;
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}
TSingleHelper = Type Helper for Single