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

rtl: add TBytes and TUnicodeCharArray types

Browse Source 
git-svn-id: trunk@19191 -
This commit is contained in:
paul 2011-09-23 06:19:46 +00:00
parent eb8a54d666
commit 8f4d02ccfa
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/sysutils/sysunih.inc
View File

@ -18,6 +18,9 @@
********************************************************************* *********************************************************************
} }
type
TUnicodeCharArray = array of UnicodeChar;
function Trim(const S: unicodestring): unicodestring; function Trim(const S: unicodestring): unicodestring;
function TrimLeft(const S: unicodestring): unicodestring; function TrimLeft(const S: unicodestring): unicodestring;
function TrimRight(const S: unicodestring): unicodestring; function TrimRight(const S: unicodestring): unicodestring;

2
rtl/objpas/sysutils/sysutilh.inc
View File

@ -98,6 +98,8 @@ type
PWordarray = ^TWordArray; PWordarray = ^TWordArray;
TWordArray = array[0..16383] of Word; TWordArray = array[0..16383] of Word;
TBytes = array of Byte;
{ exceptions } { exceptions }
Exception = class(TObject) Exception = class(TObject)
private private