Fixed IfThen parameter

nikitayev · Feb 26, 2009 · ce21c29 · ce21c29
1 parent 188b799
commit ce21c29
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ExtToPascal.dpr b/ExtToPascal.dpr
@@ -986,7 +986,7 @@ procedure WriteUnits;
     for I := 0 to Event.Params.Count - 1 do
       with TParam(Event.Params.Objects[I]) do
         if not AnsiEndsText('Singleton', Name) then begin
-          write(Pas, IfThen(not First, ','), '''', Name, '''');
+          write(Pas, IfThen(not First, ',', ''), '''', Name, '''');
           First := false;
           // Simple types
           if CaseOf(Typ, ['integer', 'string', 'boolean', 'double', 'TDateTime']) <> -1 then