소스 검색

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