Please add function ALFloatToStrF as copy of function FloatToStrF
Example of implementation
function ALFloatToStrF(Value: Extended; Format: TFloatFormat;
Precision, Digits: Integer; const AFormatSettings: TALFormatSettings): AnsiString;
{$IFDEF UNICODE}
var
Buffer: array[0..63] of AnsiChar;
begin
SetString(Result, Buffer, ALFloatToText(Buffer, Value, fvExtended,
Format, Precision, Digits, AFormatSettings));
end;
{$ELSE}
begin
result := FloatToStrF(Value, Format, Precision, Digits, AFormatSettings);
end;
{$ENDIF}
Added: https://sourceforge.net/p/alcinoe/code/538/tree//source/ALString.pas?diff=50c71b0c5fcbc909b591d20d:537