fork download
  1. program test;
  2. {$MODE DELPHI}
  3. type
  4. TArr1 = array[1..900000] of TObject;
  5. TArr2 = array[1..9] of TObject;
  6. begin
  7. writeln(sizeof(TArr1));
  8. writeln(sizeof(TArr2));
  9. end.
Success #stdin #stdout 0.01s 256KB
stdin
Standard input is empty
stdout
3600000
36