Skip to content

S
StarUML Evológica Plugin
Commit 94bf16fa authored by Erika Segatto's avatar Erika Segatto
Browse files
Options

Correção de bug que acontecia qndo a classe tinha um construtor apenas com o id

parent 16b4251a
Hide whitespace changes
Inline Side-by-side
Showing with 38 additions and 15 deletions
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ 94bf16fa
...@@ -5456,24 +5456,35 @@ begin ...@@ -5456,24 +5456,35 @@ begin
lCodigoClasse.WriteLine('}'); lCodigoClasse.WriteLine('}');
// Escrever construtor com id com relacionamentos // Escrever construtor com id com relacionamentos
lCodigoClasse.WriteLine(''); lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId, '+strutils.LeftStr(lParamsConstrutor, Length(lParamsConstrutor)-2)+') {'); if lParamsConstrutor <> ''
then lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId, '+strutils.LeftStr(lParamsConstrutor, Length(lParamsConstrutor)-2)+') {')
else lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId) {');
lCodigoClasse.Indent(); lCodigoClasse.Indent();
if lEhClasseHerdada then if lEhClasseHerdada
lCodigoClasse.WriteLine('super(piId, ' + lListaChamadaSuper.CommaText + ');') then begin
else if lListaChamadaSuper.Count > 0
lCodigoClasse.WriteLine(_NomeId+' = piId;'); then lCodigoClasse.WriteLine('super(piId, ' + lListaChamadaSuper.CommaText + ');')
else lCodigoClasse.WriteLine('super(piId);')
end
else lCodigoClasse.WriteLine(_NomeId+' = piId;');
lCodigoClasse.Append(lCodigoConstrutor); lCodigoClasse.Append(lCodigoConstrutor);
lCodigoClasse.Outdent(); lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}'); lCodigoClasse.WriteLine('}');
// Escrever construtor com id sem relacionamentos // Escrever construtor com id sem relacionamentos
lCodigoClasse.WriteLine(''); lCodigoClasse.WriteLine('');
if lParamsConstrutorSemRelOut <> lParamsConstrutor then if lParamsConstrutorSemRelOut <> lParamsConstrutor then
begin begin
lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId, '+strutils.LeftStr(lParamsConstrutorSemRelOut, Length(lParamsConstrutorSemRelOut)-2)+') {'); if lParamsConstrutorSemRelOut <> ''
then lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId, '+strutils.LeftStr(lParamsConstrutorSemRelOut, Length(lParamsConstrutorSemRelOut)-2)+') {')
else lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId) {');
lCodigoClasse.Indent(); lCodigoClasse.Indent();
if lEhClasseHerdada if lEhClasseHerdada
then lCodigoClasse.WriteLine('super(piId, ' + lListaChamadaSuperSemRelOut.CommaText + ');') then begin
else lCodigoClasse.WriteLine(_NomeId+' = piId;'); if lListaChamadaSuper.Count > 0
then lCodigoClasse.WriteLine('super(piId, ' + lListaChamadaSuper.CommaText + ');')
else lCodigoClasse.WriteLine('super(piId);')
end
else lCodigoClasse.WriteLine(_NomeId+' = piId;');
lCodigoClasse.Append(lCodigoConstrutorSemRelOut); lCodigoClasse.Append(lCodigoConstrutorSemRelOut);
lCodigoClasse.Outdent(); lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}'); lCodigoClasse.WriteLine('}');
...@@ -5801,10 +5812,16 @@ begin ...@@ -5801,10 +5812,16 @@ begin
lCodigoClasse.WriteLine('}'); lCodigoClasse.WriteLine('}');
//Escreve construtor com id //Escreve construtor com id
lCodigoClasse.WriteLine(''); lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('public ' + lsNomeClasse + '(' +_TipoId + ' piId,' + lListaParamsConstrutor.DelimitedText + ') {'); if lListaParamsConstrutor.Count > 0
then lCodigoClasse.WriteLine('public ' + lsNomeClasse + '(' +_TipoId + ' piId,' + lListaParamsConstrutor.DelimitedText + ') {')
else lCodigoClasse.WriteLine('public ' + lsNomeClasse + '(' +_TipoId + ' piId) {');
lCodigoClasse.Indent(); lCodigoClasse.Indent();
if lEhClasseHerdada if lEhClasseHerdada
then lCodigoClasse.WriteLine('super(piId, ' + lListaChamadaSuper.CommaText + ');') then begin
if lListaChamadaSuper.Count > 0
then lCodigoClasse.WriteLine('super(piId, ' + lListaChamadaSuper.CommaText + ');')
else lCodigoClasse.WriteLine('super(piId);')
end
else lCodigoClasse.WriteLine(_NomeId+' = piId;'); else lCodigoClasse.WriteLine(_NomeId+' = piId;');
lCodigoClasse.Append(lCodigoConstrutor); lCodigoClasse.Append(lCodigoConstrutor);
lCodigoClasse.Outdent(); lCodigoClasse.Outdent();
...@@ -5812,12 +5829,18 @@ begin ...@@ -5812,12 +5829,18 @@ begin
//Escreve construtor com id e sem relacionamentos //Escreve construtor com id e sem relacionamentos
lCodigoClasse.WriteLine(''); lCodigoClasse.WriteLine('');
if lListaParamsConstrutorSemRelOut.Count <> lListaParamsConstrutor.Count then if lListaParamsConstrutorSemRelOut.Count <> lListaParamsConstrutor.Count then
begin begin
lCodigoClasse.WriteLine('public '+lsNomeClasse+'('+_TipoId+' piId,'+lListaParamsConstrutorSemRelOut.DelimitedText+') {'); if lListaParamsConstrutorSemRelOut.Count > 0
then lCodigoClasse.WriteLine('public ' + lsNomeClasse + '(' +_TipoId + ' piId,' + lListaParamsConstrutorSemRelOut.DelimitedText + ') {')
else lCodigoClasse.WriteLine('public ' + lsNomeClasse + '(' +_TipoId + ' piId) {');
lCodigoClasse.Indent(); lCodigoClasse.Indent();
if lEhClasseHerdada if lEhClasseHerdada
then lCodigoClasse.WriteLine('super(piId, ' + lListaChamadaSuperSemRelOut.CommaText + ');') then begin
else lCodigoClasse.WriteLine(_NomeId+' = piId;'); if lListaChamadaSuper.Count > 0
then lCodigoClasse.WriteLine('super(piId, ' + lListaChamadaSuper.CommaText + ');')
else lCodigoClasse.WriteLine('super(piId);')
end
else lCodigoClasse.WriteLine(_NomeId+' = piId;');
lCodigoClasse.Append(lCodigoConstrutorSemRelOut); lCodigoClasse.Append(lCodigoConstrutorSemRelOut);
lCodigoClasse.Outdent(); lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}'); lCodigoClasse.WriteLine('}');
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment