瀏覽代碼

rtl: add TBytes and TUnicodeCharArray types

git-svn-id: trunk@19191 -
paul 14 年之前
父節點
當前提交
8f4d02ccfa
共有 2 個文件被更改,包括 5 次插入0 次删除
  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