Selaa lähdekoodia

rtl: add TBytes and TUnicodeCharArray types

git-svn-id: trunk@19191 -
paul 14 vuotta sitten
vanhempi
commit
8f4d02ccfa
2 muutettua tiedostoa jossa 5 lisäystä ja 0 poistoa
  1. 3 0
      rtl/objpas/sysutils/sysunih.inc
  2. 2 0
      rtl/objpas/sysutils/sysutilh.inc

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

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

+ 2 - 0
rtl/objpas/sysutils/sysutilh.inc

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