n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/static_props.pas

18 строк281 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

type TClass = class
class a : integer := 4;

class function getA (i : integer) : integer;
begin
end;

class procedure setA(i: integer; a : integer);
begin
end;

class property Prop1[i : integer] : integer read getA write setA;
end;

var t : TClass;
begin
TClass.Prop1[2] := 3;
end.