Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
22. Mär 2007
Das case ist dazu da damit man im Record verschiedene Typen auf
ein und demselben Adressraum abbilden kann.
Kannst ja mal in der Delphi Hilfe nach variant Records schauen.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
22. Mär 2007
Noch auf einer japanischen WebSeite gefunde,
function SingleToHex(d: single) : String;
var i: Cardinal absolute d;
begin
Result := IntToHex(i,8);
end;
function HexToSingle(h: String): Single;
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
22. Mär 2007
Es sollte damit gehen.
function HexToSingle(Value: String): Single;
var
IntValue: Integer;
FloatValue: Single absolute IntValue;
begin
IntValue:=StrToInt('$'+Value);
Result:=FloatValue;