Mal wieder HexToFloat

[gammatester]

Zitat von Neutral General:

Du kannst folgendes machen:

Delphi-Quellcode:

function HexToSingle(hex: String): Single;
var tmp: Cardinal;
begin
  tmp := StrToInt('$' + hex);
  Move(tmp, Result, SizeOf(Cardinal));
end;

Ich glaube nicht, daß das so gewollt ist. Das Ergebnis ist immer ein denormalisiertes Single. Außerdem kann man so keine negativen Zahlen erhalten. Wie wäre es mit

Delphi-Quellcode:

function HexToSingle(hex: String): Single;
var tmp: smallint;
begin
  tmp := StrToInt('$' + hex);
  Result := tmp;
end;

[Neutral General]

Zitat von gammatester:

Wie wäre es mit

Delphi-Quellcode:

function HexToSingle(hex: String): Single;
var tmp: smallint;
begin
  tmp := StrToInt('$' + hex);
  Result := tmp;
end;

Eh ja, so gehen alle Nachkommastellen verloren und die Zahl ist komplett falsch.

[gammatester]

Zitat von Neutral General:

Eh ja, so gehen alle Nachkommastellen verloren und die Zahl ist komplett falsch.

Welche Nachkommastellen? Wie schon gesagt: Solange keine Auskunft über die Bedeutung der 4 Hex-Zeichen gemacht wird (zB: nimm den Integerwert/100), sehe ich erst einmal keine Nachkomnastellen. Deine Nachkommastellen sind doch völlig sinnlos, wenn man bedenkt, daß die kleinste normalisierte Singlezahl ca 1.17549e-38 ist und damit ca 128 mal größer(!) als 9.17963e-41. Und das gilt für jede vierstellige Hexeingabe.

[Neutral General]

Vielleicht waren es auch nur schlechte (zu kurze) Beispiele?
Ich habe es so interpretiert dass er/sie "echte" Floats als Hex-String erhält.
Seine/Ihre Vorgehensweise diese umzuwandeln und dass mein Code das gleiche Ergebnis erzielt scheint das zu bestätigen.

Dass die Ergebnisse nicht so aussehen als wären sie gewollt stimmt wohl.
Es ist wahrscheinlich nicht auszuschließen dass er/sie selbst nicht genau weiß diese Hex-Strings darstellen und wie sie decodiert werden müssen.

Von daher: Wir brauchen mehr Infos.

[HolgerX]

Hmm

Also ich vermute, dass es sich um HalfFloat oder auch Float16 handelt.
Diese haben nur 2 Bytes und werden in Hex eben so dargestellt.

Jedoch müssen diese in Delphi umgerechnet werden auf z.B. single.

Hierbei wird daraus (glaube ich) zunächst ein WORD (mit StrToInt('$'+AString)) gemacht und dieses dann nach Single konvertiert.

Beispiele habe ich keine...

[Neutral General]

Zitat von HolgerX:

Hierbei wird daraus (glaube ich) zunächst ein WORD (mit StrToInt('$'+AString)) gemacht und dieses dann nach Single konvertiert.

Beispiele habe ich keine...

Das ist was mein Code weiter oben macht. Aber mit Cardinal, statt Word, was aber unterm Strich keinen Unterschied macht.
Das Problem ist, dass ein 16-Bit Float in einem 32-Float nicht den gleichen Wert hat.

[HolgerX]

Hmm..

Müsste sich mit dieser beschreibung nicht das WORD Bitweise zerlegen lassen und damit dann die Float richtig erstellt werden, unabhänging ob nun Single oder Double...

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

[himitsu]

Das Umwandeln von HEX zu Float hat er doch schon?

Nur das weitere Umwandeln von Float zu "String mit Kommastellen" hing.

[sko1]

Ich begreife immer noch nicht wo denn hier überhaupt Nachkommastellen herkommen sollen?

Wird 0000 übertragen ist das 0, wird FFFF übertragen ist das 65535

Ciao
Stefan

[p80286]

Zitat von sko1:

Wird 0000 übertragen ist das 0, wird FFFF übertragen ist das 65535

Nö, schau dir mal den Wikipedia-Link an.
es kommt ja darauf an wie die Bits interpretiert werden (müssen)

Gruß
K-H