Mal wieder HexToFloat

[Neutral General]

Falls es sich doch um ein 16-Bit Float handeln sollte habe ich mal was gebaut.
Ist sicherlich nicht das schönste auf der Welt, aber funktioniert soweit ich das getestet habe:

EDIT: Diese Version ist fehlerhaft! Ein paar Posts weiter unten ist die korrigierte Version!

Delphi-Quellcode:

function HexToFloat16(hex: String): Single;

  function FractionToFloat(frac: Cardinal): Single;
  var i: Integer;
  begin
    Result := 0;
    for i:=0 to 10 do
    begin
      if (frac shr (10-i)) <> 0 then
        Result := Result + Power(2, -(11-i));
    end;
  end;

var tmp: Word;
    resultBin: Cardinal;
    sign: Cardinal;
    exp: Cardinal;
    frac: Cardinal;
begin
  tmp := StrToInt('$' + hex);

  frac := (tmp and $3FF);
  exp := ((tmp shr 10) and $1F);;
  sign := (tmp shr 15);

  if (exp = $1F) then
  begin
    if (frac = 0) then
    begin
      if (Sign = 0) then
        Result := Infinity
      else
        Result := NegInfinity;
    end
    else
      Result := NaN;
  end
  else
  if (exp = 0) then
  begin
    if (frac = 0) then
    begin
      if (Sign = 0) then
        Result := 0
      else
        Result := -0;
    end
    else
    begin // Subnormals
      if (sign = 0) then
        Result := Power(2,-14) * FractionToFloat((frac shl 1) + 1)
      else
        Result := -Power(2,-14) * FractionToFloat((frac shl 1) + 1);
    end;
  end
  else
  begin
    resultBin := (frac shl 13) or ((exp - 15 + 127) shl 23) or (sign shl 31);
    Move(resultBin, Result, SizeOf(Cardinal));
  end;
end;

[HolgerX]

Hmm..

@Neutral General

Irgendwie scheint die berechnung nicht zu passen..
Wenn der exp = 0 ist, dann kommen falsche Werte heraus.

Bei $0001 = 0 00000 0000000001

Kommt lt. Wiki 5,96046447753906E-8 heraus, es ist der minimum positive Subnormale.
Bei Dir leider 4,57763671875E-5

Wenn man einen Exponenten hat, dann passt deine Berechnung.
(Habe leider keine Möglichkeit (Fähigkeit) es selbst zu lösen )



https://en.wikipedia.org/wiki/Half-p...g-point_format

[Neutral General]

Korrigierte Version:

Delphi-Quellcode:

function HexToFloat16(hex: String): Single;

  function FractionToFloat(frac: Cardinal): Single;
  var i: Integer;
  begin
    Result := 0;
    for i:=0 to 10 do
    begin
      if ((frac shr i) and 1) <> 0 then
        Result := Result + Power(2, -(11-i));
    end;
  end;

var tmp: Word;
    resultBin: Cardinal;
    sign: Cardinal;
    exp: Cardinal;
    frac: Cardinal;
begin
  tmp := StrToInt('$' + hex);

  frac := (tmp and $3FF);
  exp := ((tmp shr 10) and $1F);;
  sign := (tmp shr 15);

  if (exp = $1F) then
  begin
    if (frac = 0) then
    begin
      if (Sign = 0) then
        Result := Infinity
      else
        Result := NegInfinity;
    end
    else
      Result := NaN;
  end
  else
  if (exp = 0) then
  begin
    if (frac = 0) then
    begin
      if (Sign = 0) then
        Result := 0
      else
        Result := -0;
    end
    else
    begin // Subnormals
      if (sign = 0) then
        Result := Power(2,-14) * FractionToFloat((frac shl 1))
      else
        Result := -Power(2,-14) * FractionToFloat((frac shl 1));
    end;
  end
  else
  begin
    resultBin := (frac shl 13) or ((exp - 15 + 127) shl 23) or (sign shl 31);
    Move(resultBin, Result, SizeOf(Cardinal));
  end;
end;

[HolgerX]

Passt

Jetzt nur noch die umgekehrte Version (von Single nach HEXStr) ...