掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
任意の4Byte16進文字列をFloat型に変換するには？ (ID：7785)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じです。 function TransToSingle(const Value:string):Single; var b:array[0..3] of Byte; begin b[3] := StrToInt('$'+Copy(Value,1,2)); b[2] := StrToInt('$'+Copy(Value,3,2)); b[1] := StrToInt('$'+Copy(Value,5,2)); b[0] := StrToInt('$'+Copy(Value,7,2)); Move(b,result,4); end; procedure TForm1.Button1Click(Sender: TObject); var s:string; f:single; begin s := '3F83A9FC'; f := TransToSingle(s); Label1.Caption := FloatToStr(f); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.