mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-31 22:36:00 +02:00
14 lines
212 B
ObjectPascal
14 lines
212 B
ObjectPascal
program bug12204;
|
|
|
|
var
|
|
s1: AnsiString;
|
|
s2: string;
|
|
|
|
begin
|
|
s1 := 's1';
|
|
WriteLn('s1 = ', s1, ' : ', SizeOf(s1)+4-SizeOf(pointer));
|
|
|
|
s2 := 's2';
|
|
WriteLn('s2 = ', s2, ' : ', SizeOf(s2)+4-SizeOf(pointer));
|
|
end.
|