Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Improve Delphi Unit Generator code formatting output

Browse Source
This commit is contained in:
Geoffrey Smith 2019-07-30 16:44:12 +10:00
parent e4f57686e2
commit d95d31d4d4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
samples/SwaggerSampleApi/DelphiUnit.pas
View File

@ -439,11 +439,11 @@ begin
if LParamFlagString.Length > 0 then
LParamFlagString := LParamFlagString + ' ';
LParamString := LParamString + LParamFlagString + LParam.ParamName + ': ' + LParam.FType.FTypeName + ';';
LParamString := LParamString + LParamFlagString + LParam.ParamName + ': ' + LParam.FType.FTypeName + '; ';
end;
if LParamString.EndsWith(';') then
LParamString := LParamString.Remove(LParamString.Length - 1);
if LParamString.EndsWith('; ') then
LParamString := LParamString.Remove(LParamString.Length - 2);
LParamString := LParamString + ')';
@ -524,11 +524,11 @@ begin
if LParamFlagString.Length > 0 then
LParamFlagString := LParamFlagString + ' ';
LParamString := LParamString + LParamFlagString + LParam.ParamName + ': ' + LParam.FType.FTypeName + ';';
LParamString := LParamString + LParamFlagString + LParam.ParamName + ': ' + LParam.FType.FTypeName + '; ';
end;
if LParamString.EndsWith(';') then
LParamString := LParamString.Remove(LParamString.Length - 1);
if LParamString.EndsWith('; ') then
LParamString := LParamString.Remove(LParamString.Length - 2);
LParamString := LParamString + ')';