integerをバイナリにするには？

解決

サウ 2004-08-07 02:44:22 No: 10263

こんにちはお世話になっています。

Integerの整数をバイナリにしようとし悩んでいます。
HexToBinをかけた際に取得したHexが2桁になると
はじめの桁しか認識されず、以下の場合16と同じ結果になってしまいます。
なので255まではうまくいきます。
何かマヌケなことをにしているのでしょうか？
どなたか、よければご教授ください。

ソースは以下のような感じです。

var

  int        : integer;
  intCnt     : integer;
  pInt       : pointer;
  pbuff      : pointer;
  str        : string;

begin

GetMem(pbuff, 4);
GetMem(pInt, 4);

   int := 256;
   str := LowerCase(inttoHex(int, 4));
   StrPCopy(pInt, str);
   HexToBin(pInt, pbuff, SizeOf(pInt));

   //確認
   str := PChar(pbuff)^;

end;

TtPIPICH 2004-08-07 07:38:15 No: 10264

>str := PChar(pbuff)^;
話がずれますが、
PCharではなくCharでは？

TtPIPICH 2004-08-07 07:42:41 No: 10265

すみません。まちがえました。
ほんとすみません

TtPIPICH 2004-08-07 07:47:15 No: 10266

http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/article/032/032720.html
こちらにIntToBinがあります

サウ 2004-08-11 03:41:37 No: 10267

TtPIPICHさんありがとうございました。

解決しました。ありがとうございました。