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

TestSamples/CompilationSamples/VirtualSetProperty.pas

24 строки339 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

type
  A=class
    i:integer;
    procedure Seti(i: integer);virtual;
    begin
      Self.i:=i;
      write('A')
    end;
    property p:integer read i write Seti;
  end;
  B=class(A)
    procedure Seti(i: integer);override;
    begin
      Self.i:=i;
      write('B')
    end;
  end;
  
var a1: A;

begin
  a1:=B.Create;
  a1.p:=1;
end.