lazarus/components/codetools/examples/scanexamples/getterexample1.pas

unit getterexample1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type

  { TOldest }

  TOldest = class
  private
    FBar: integer;
    function GetBar: integer; virtual;
  public
    property Bar: integer read GetBar;
  end;

  { TOlder }

  TOlder = class(TOldest)
  private
    function GetBar: integer; override;
  public
    procedure DoSomething;
  end;

implementation

{ TOldest }

function TOldest.GetBar: integer;
begin
  Result:=FBar;
end;

{ TOlder }

function TOlder.GetBar: integer;
begin
  Result:=FBar;
end;

procedure TOlder.DoSomething;
var
  Older: TOlder;
begin
  Older:=TOlder.Create;
  with Older do begin
    writeln(Older.Bar);
  end;
end;

end.