Constantes de membros de classe agora são não tipadas.

EvoUMLPlugin/src/InstantCode/InstantCode.pas

@@ -4092,7 +4092,9 @@ end;
 
 procedure TInstantCodeConst.InternalWrite(Writer: TInstantCodeWriter);
 begin
-  Writer.WriteLnFmt('%s: %s = %s;', [Name, TypeName, Value]);
+  if TypeName <> ''
+    then Writer.WriteLnFmt('%s: %s = %s;', [Name, TypeName, Value])
+    else Writer.WriteLnFmt('%s = %s;', [Name, Value]);
 end;
 
 { TInstantCodeResStrings }

EvoUMLPlugin/src/IntegracaoDelphiSUML.pas

@@ -2402,7 +2402,6 @@ begin
           lInstantCodeConst := TInstantCodeConst.Create(piInstantCodeConsts);
 //          lInstantCodeConst.TypeValue := TInstantCodeType(lInstantCodeConst);
           lInstantCodeConst.Name := lClassTicket.PersistentObjectClassName + '_' + lsAtributo;
-          lInstantCodeConst.TypeName := 'Integer';
           lInstantCodeConst.Value := IntToStr(lAttributeTicket.AttributeIndex);
         end;
 
@@ -2413,7 +2412,6 @@ begin
           begin
             lInstantCodeConst := TInstantCodeConst.Create(piInstantCodeConsts);
             lInstantCodeConst.Name := lClassTicket.PersistentObjectClassName + '_' + lRelationTicket.OriginPropertyName;
-            lInstantCodeConst.TypeName := 'Integer';
             lInstantCodeConst.Value := IntToStr(lRelationTicket.OriginPropertyindex);
           end;
         end;
@@ -2425,7 +2423,6 @@ begin
           begin
             lInstantCodeConst := TInstantCodeConst.Create(piInstantCodeConsts);
             lInstantCodeConst.Name := lClassTicket.PersistentObjectClassName + '_' + lRelationTicket.DestinationPropertyName;
-            lInstantCodeConst.TypeName := 'Integer';
             lInstantCodeConst.Value := IntToStr(lRelationTicket.DestinationPropertyIndex);
           end;
         end;