こんにちは、佐藤　充男です。



☆説明
Integer等、変数のメモリ構造にアクセスする方法です。

☆準備
　１．フォームにButton1を置く。
　２．Button1の OnTopClick イベントに以下のコードを記述。

☆補足
　・Delphi4で作成、Windows98、NT4.0WSで動作確認。

======================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  iwork: Integer;
  pwork: ^Byte;
  swork: string;
begin
  iwork := $12345678;
  pwork := @iwork;
  swork := '$' + IntToHex( Integer(pwork^), 2 ) + ',';
  Inc(pwork);
  swork := swork + '$' + IntToHex( Integer(pwork^), 2 ) + ',';
  Inc(pwork);
  swork := swork + '$' + IntToHex( Integer(pwork^), 2 ) + ',';
  Inc(pwork);
  swork := swork + '$' + IntToHex( Integer(pwork^), 2 );

  ShowMessage( swork );
end;
======================================================================

                              99/7/5(月) 03:42pm  LDM03756 佐藤　充男

Original document by 佐藤　充男　　　氏 ID:(LDM03756)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。