Single -> Extended

[Gruber_Hans_12345]

Blöde frage wie weise ich eine Float Zahl am einfachsten in eine Extended zu, aber ich möchte gerne die zusätzliche Genauigkeit die ich dadurch erhalte mit 0 er füllen.

Delphi-Quellcode:

procedure test;

    function ShowExtended(value : extended) : string;
    begin
        Result  := FloatToStrF(value, ffGeneral, 18, 0);
    end;

var
    myFloat     : Single;
    myExtended  : Extended;
begin
    myFloat     := 12.4;
    myExtended  := myFloat;

    showmessage(FloatToStr(myFloat)+' ... '+ShowExtended(myExtended));

    myExtended  := 12.4;
    showmessage(FloatToStr(myFloat)+' ... '+ShowExtended(myExtended));
end;

Ausgabe1:

Zitat:

12,3999996185303 ... 12,3999996185302734

Ausgabe2:

Zitat:

12,3999996185303 ... 12,4