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

* Better string array definitions

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-13 18:08:39 +01:00
parent fa09eb9b08
commit b7f9947d26
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/types.pp
View File

@ -68,9 +68,18 @@ type
TQWordDynArray = array of QWord;
TShortIntDynArray = array of ShortInt;
TSmallIntDynArray = array of SmallInt;
TStringDynArray = array of AnsiString;
TObjectDynArray = array of TObject;
TRTLStringDynArray = array of RTLString;
TAnsiStringDynArray = Array of AnsiString;
TWideStringDynArray = array of WideString;
TUnicodeStringDynArray = array of UnicodeString;
{$if SIZEOF(CHAR)=2}
TStringDynArray = Array of UnicodeString;
{$ELSE}
TStringDynArray = Array of AnsiString;
{$ENDIF}
TObjectDynArray = array of TObject;
TWordDynArray = array of Word;
TCurrencyArray = Array of currency;
{$ifndef FPUNONE}