Skip to content

Commit 0a427c3

Browse files
authored
Merge pull request #19 from EagleAglow/main
Initialize variables before parsing command line
2 parents 4c37fbf + 9b4f642 commit 0a427c3

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

generator/Delphi/src/generator.dpr

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -102,7 +102,11 @@ var
102102
ParamOK: Boolean;
103103
SkipNext: Boolean;
104104
begin
105+
// initialize values
105106
Result := false;
107+
invalid := 0;
108+
valid := 0;
109+
ParamOK := false;
106110
// initialize the params list
107111
if not Assigned(FParams) then
108112
FParams := TStringList.Create(dupIgnore, false, false);

0 commit comments

Comments
 (0)