MemAlign.pas

type
  MemAlign<T> = record
  private
    First: Byte;
    Second: T;
  public
    class function Get(): Cardinal; static; inline;
  end;
  
const
  MEM_ALIGN_INT64 = SizeOf(MemAlign<Int64>) - SizeOf(Int64);
  MEM_ALIGN_INT32 = SizeOf(MemAlign<Cardinal>) - SizeOf(Cardinal);
  MEM_ALIGN_INT16 = SizeOf(MemAlign<Word>) - SizeOf(Word);
  MEM_ALIGN_INT8  = SizeOf(MemAlign<Byte>) - SizeOf(Byte);
  
begin
  Writeln(MEM_ALIGN_INT64);
  Writeln(MEM_ALIGN_INT32);
  Writeln(MEM_ALIGN_INT16);
  Writeln(MEM_ALIGN_INT8);
  Writeln;

  Writeln(MemAlign<Int64>.Get);
  Writeln(MemAlign<Integer>.Get);
  Writeln(MemAlign<Word>.Get);
  Readln;
end.