delphi float double 浮點數
https://github.com/Tominator2/HEXtoIEEE-754 http://www.davdata.nl/math/floatingpoint.html http://www.efg2.com/Lab/Mathematics/NaN.htm http://www.efg2.com/Lab/Library/Delphi/MathInfo/index.html http://docwiki.embarcadero.com/RADStudio/Tokyo/en/About_Floating-Point_Arithmetic http://rvelthuis.de/articles/articles-floats.html IEEE standard for floating-point 754 1985 2008 https://ieeexplore.ieee.org/document/4610935/definitions?ctx=definitions https://en.wikipedia.org/wiki/Double-precision_floating-point_format var f:Single; pb: pbyte; pba:array[1..sizeof(Single)] of byte; ttb4,ttb3,ttb2, ttb1 : Byte; i : Integer; s:string; Lines: TStrings; begin s:=''; f := string.ToSingle(Edit1.Text); pb := addr(f); for I := 1 to SizeOf(f) do begin pba[I]:= pb^; inc(pb); end; I:=1; ttb4:= pba[SizeOf(f)]; ttb3:= pba[SizeOf(f)-1]; ttb2:= pba[SizeOf(f)-2]; ttb1:= pba[SizeOf(f)-3]; s:= s +'Sign:'+ byte(ttb4 shr 7).ToHex...