* Fix bug #36478: add array of category names

git-svn-id: trunk@43799 -

rtl/objpas/unicodedata.pas

@@ -180,6 +180,41 @@ const
     UGC_Surrogate               = 27;
     UGC_PrivateUse              = 28;
     UGC_Unassigned              = 29;
+    
+// Names
+
+  UnicodeCategoryNames: array[0..29] of string[2] = (
+    'Lu',
+    'Ll',
+    'Lt',
+    'Lm',
+    'Lo',
+    'Mn',
+    'Mc',
+    'Me',
+    'Nd',
+    'Nl',
+    'No',
+    'Pc',
+    'Pd',
+    'Ps',
+    'Pe',
+    'Pi',
+    'Pf',
+    'Po',
+    'Sm',
+    'Sc',
+    'Sk',
+    'So',
+    'Zs',
+    'Zl',
+    'Zp',
+    'Cc',
+    'Cf',
+    'Cs',
+    'Co',
+    'Cn'
+    );
 
 type