14 lines
274 B
ObjectPascal
14 lines
274 B
ObjectPascal
|
type
|
|||
|
|
r1 = record
|
|||
|
|
x := 5;
|
|||
|
|
function ToString: string; override := x.ToString;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var a := new r1;
|
|||
|
|
var s := (if true then a else new r1).ToString;
|
|||
|
|
assert(s = '5');
|
|||
|
|
s := '';
|
|||
|
|
s := (if false then a else new r1).ToString;
|
|||
|
|
assert(s = '5');
|
|||
|
|
end.
|