Pārlūkot izejas kodu

rtl: add TBytes and TUnicodeCharArray types

git-svn-id: trunk@19191 -
paul 14 gadi atpakaļ
vecāks
revīzija
8f4d02ccfa
2 mainītis faili ar 5 papildinājumiem un 0 dzēšanām
  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