11 lines
137 B
ObjectPascal
11 lines
137 B
ObjectPascal
type
|
|
TRec = record
|
|
a: integer;
|
|
end;
|
|
|
|
begin
|
|
var x: TRec;
|
|
x.a := 2;
|
|
var s := $'Hello {x.a}';
|
|
assert(s = 'Hello 2');
|
|
end. |