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.
|