程序:
var
a:array[0..1023] of Byte;
b:array[0..1023] of Char;
c:array of Byte;
d:array of Char;
begin
writeln(SizeOf(a));
writeln(SizeOf(b));
writeln(SizeOf(c));
setlength(c,1024);
writeln(SizeOf(c));
writeln(SizeOf(d));
setlength(d,1024);
writeln(SizeOf(d));
end.
输出:
1024
1024
4
4
4
4
编译器版本:Free Pascal Compiler version 3.2.2 [2021/05/15] for i386
虽然Wiki上有提及字符数组是旧时代的产物了,但好像没有提及长度固定这一点?
var
a:array[0..1023] of Byte;
b:array[0..1023] of Char;
c:array of Byte;
d:array of Char;
begin
writeln(SizeOf(a));
writeln(SizeOf(b));
writeln(SizeOf(c));
setlength(c,1024);
writeln(SizeOf(c));
writeln(SizeOf(d));
setlength(d,1024);
writeln(SizeOf(d));
end.
输出:
1024
1024
4
4
4
4
编译器版本:Free Pascal Compiler version 3.2.2 [2021/05/15] for i386
虽然Wiki上有提及字符数组是旧时代的产物了,但好像没有提及长度固定这一点?