* write length/code page when writing the string type

git-svn-id: trunk@45654 -

compiler/symdef.pas

@@ -2688,6 +2688,14 @@ implementation
            'ShortString','LongString','AnsiString','WideString','UnicodeString');
       begin
          GetTypeName:=names[stringtype];
+         case stringtype of
+           st_ansistring,st_unicodestring:
+             GetTypeName:=GetTypeName+'('+tostr(encoding)+')';
+           st_shortstring:
+             GetTypeName:=GetTypeName+'['+tostr(len)+']';
+           else
+             ;
+         end;
       end;