E2573 ALIGN 指令の値が無効です (1、2、4、8、16 のいずれかの場合に有効)(Delphi)

提供: RAD Studio
移動先: 案内検索

エラーと警告のメッセージ(Delphi) への移動


これが発生するのは、ALIGN 指令を 1、2、4、8、16 のいずれでもない値に設定した場合です。



program E2573;

{$APPTYPE CONSOLE}

uses
  SysUtils;

{$ALIGN 3}
type
  TAlignedRecord = Record
    name1   : string[4];
    floater : single;
    name2   : char;
    int     : Integer;
  end;
var
  alignedRec  : TAlignedRecord;
begin
   Writeln('Aligned record size = '+IntToStr(SizeOf(alignedRec)));
   readln;
end.