2019-03-07 17:32:38 +03:00
|
|
|
|
type
|
|
|
|
|
|
TClass = class
|
|
|
|
|
|
function f(params arr: array of char): char;
|
|
|
|
|
|
begin
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
function f2(a: integer := 2): integer;
|
|
|
|
|
|
begin
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
2018-02-19 22:33:48 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
var a: sequence of byte;
|
|
|
|
|
|
var b{@var b: array of byte;@} := a.ToArray;
|
|
|
|
|
|
var o := new TClass;
|
|
|
|
|
|
var c{@var c: char;@} := o.f;
|
|
|
|
|
|
var i{@var i: integer;@} := o.f2;
|
|
|
|
|
|
end.
|
