14 lines
196 B
ObjectPascal
14 lines
196 B
ObjectPascal
|
type
|
|||
|
|
T = record
|
|||
|
|
y := 1;
|
|||
|
|
function ToString: string; override := y.ToString;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function F(x: T?): string;
|
|||
|
|
begin
|
|||
|
|
Result := x?.ToString();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
assert(f(new T)='1');
|
|||
|
|
end.
|