VBのVal関数をDelphiでは (ID:13144)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなかんじですか？ function VBVal(HexStr:string):integer; begin result := StrToInt('$'+HexStr); if (result and $8000) <> 0 then result := result-65536; end;