blob: 2b1012947bbd2d2aaee6c71213d5af5b117d2cbb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{$ifdef FPC}
{$mode macpas}
{$endif}
{$align power}
program StrSizeTest;
type
StrRec =
record
s1: string[ 10];
s2: string[ 10];
end;
begin
writeln( 'SizeOf( StrRec) = ', SizeOf( StrRec));
if (sizeof(strrec)<>24) then
halt(1);
end.
|
