pascal_records.pp

来自「Delphi脚本控件」· PP 代码 · 共 28 行

type
  TRandomPoint = record
    X: Integer = Random(100);
    Y: Integer = Random(100);

    procedure Initialize;
    begin
      writeln('new point');
    end;

  end;
  
  TRandomCircle = record(TRandomPoint)
    R: Integer = Random(100);

    procedure Initialize;
    begin
      inherited;
      writeln('new circle');
    end;

  end;
  
var
  C: TRandomCircle;
println C;