E2091 32 ビット Delphi コンパイラではセグメント/オフセットの組み合わせはサポートされません (Delphi)
エラーと警告のメッセージ(Delphi) への移動
32 ビットコードでは 16 ビットコードで使用していたセグメント/オフセットのアドレス指定を使用しません。
16 ビットバージョンの Object Pascal ではセグメントとオフセットのペアが絶対変数の宣言に使用され,Ptr 標準関数への引数としても使用されていました。
32 ビットのプロテクトモードプログラムでは絶対アドレスを使ってはなりません。そのかわりに適切な Win32 API 関数を呼び出してください。
program Produce; var VideoMode : Integer absolute $0040:$0049; begin Writeln( Byte(Ptr($0040,$0049)^) ); end. program Solve; (*コンパイルできるが実行できない。絶対アドレスを使用しないように注意する*) var VideoMode : Integer absolute $0040*16+$0049; begin Writeln( Byte(Ptr($0040*16+$0049)^) ); end.