Browse Source

+ add some Delphi-compatible type kind aliases

git-svn-id: trunk@37707 -
svenbarth 7 năm trước cách đây
mục cha
commit
c07e723d37
1 tập tin đã thay đổi với 9 bổ sung0 xóa
  1. 9 0
      rtl/inc/rttih.inc

+ 9 - 0
rtl/inc/rttih.inc

@@ -28,6 +28,15 @@ type
 
 {$MINENUMSIZE DEFAULT}
 
+const
+  { some Delphi-compatible aliases }
+  tkAnsiChar = tkChar;
+  tkWideChar = tkWChar;
+  tkShortString = tkSString;
+  tkAnsiString = tkAString;
+  tkWideString = tkWString;
+  tkUnicodeString = tkUString;
+
 procedure InitializeArray(p, typeInfo: Pointer; count: SizeInt);
 procedure FinalizeArray(p, typeInfo: Pointer; count: SizeInt);
 procedure CopyArray(dest, source, typeInfo: Pointer; count: SizeInt);