レコード型の可変部分について (ID:43229)

名前

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

本文 data を外に出せば最適化してても期待通りになるよ XE2 だけど var data: TData; <--- 外に出す procedure TForm1.Button1Click(Sender: TObject); begin data.dWord := $FFFF; Label1.Caption := IntToStr( data.dWord ) ; Label2.Caption := IntToStr( data.dSmallInt ) ; data.dWord := $FFFF; Label3.Caption := IntToStr( data.dSmallInt ) ; Label4.Caption := IntToStr( data.dWord ) ; end;