9 lines
307 B
ObjectPascal
9 lines
307 B
ObjectPascal
type TRec = record end;
|
|
|
|
type myproc = integer -> TRec;
|
|
|
|
begin
|
|
var f: Func0<byte> := () -> begin Result{@var Result: byte;@} := 0; end;
|
|
var f2: char->string := c -> begin Result{@var Result: string;@} := nil; end;
|
|
var f3: myproc := i -> begin Result{@var Result: TRec;@} := default(TRec); end;
|
|
end. |