Fixed issue with double params in URL

Author: wlandgraf

Dist/OpenApiUtils.pas

@@ -22,6 +22,7 @@ function DateToISO(const Value: TDate): string;
 function ISOToDateTime(const Value: string): TDateTime;
 function ISOToDate(const Value: string): TDate;
 function BoolToParam(const Value: Boolean): string;
+function DoubleToParam(const Value: Double): string;
 
 resourcestring
   SInvalidDateFormat = 'Value %s is not a valid datetime';
@@ -44,6 +45,9 @@   TTimeZoneInfo = record
     IsUTC: Boolean;
   end;
 
+var
+  InternalFormatSettings: TFormatSettings;
+
 function NewTimeZoneInfo: TTimeZoneInfo;
 begin
   Result.HourOff := 0;
@@ -628,4 +632,13 @@ function BoolToParam(const Value: Boolean): string;
     Result := 'false';
 end;
 
+function DoubleToParam(const Value: Double): string;
+begin
+  Result := FloatToStr(Value, InternalFormatSettings);
+end;
+
+
+initialization
+  InternalFormatSettings := TFormatSettings.Create;
+  InternalFormatSettings.DecimalSeparator := '.';
 end.

Source/OpenApiGen.Metadata.pas

@@ -49,6 +49,7 @@   TStringMetaType = class(TMetaType)
   TDoubleMetaType = class(TMetaType)
   public
     function TypeName: string; override;
+    function CodeToParam(const ParamName: string): string; override;
   end;
 
   TIntegerMetaType = class(TMetaType)
@@ -388,6 +389,11 @@ function TObjectMetaType.TypeName: string;
 
 { TDoubleMetaType }
 
+function TDoubleMetaType.CodeToParam(const ParamName: string): string;
+begin
+  Result := Format('DoubleToParam(%s)', [ParamName]);
+end;
+
 function TDoubleMetaType.TypeName: string;
 begin
   Result := 'Double';