Forráskód Böngészése

rtl: add TBytes and TUnicodeCharArray types

git-svn-id: trunk@19191 -
paul 14 éve
szülő
commit
8f4d02ccfa

+ 3 - 0
rtl/objpas/sysutils/sysunih.inc

@@ -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 - 0
rtl/objpas/sysutils/sysutilh.inc

@@ -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