freepascal.ru

Код: Выделить всё

 Type 
   TMyClass=class
   private
      FProp : integer;
      procedure SetProp(const Value:integer);
      function GetProp:integer;
    public
      property Prop:integer read FProp write FProp;
      property Prop1:integer read GetProp write SetProp;
    end;       
....
   prop:=10; // здесь посути присвоение идет поля класса MyClass.FProp
   prop:=prop1; // по сути вызывается   MyClass.FProp:= MyClass.GetProp
   prop1 := 2; // вызывается MyClass.SetProp(2)

Код: Выделить всё

interface
  TCar = class  // Это машина
  private
    FKoef: integer;
    FPedal: integer;
    FSpeed: integer;
  protected
    procedure SetPedal(const AValue: integer); virtual; // реализация. virtual означает, что потомки класса могут изменять эту реализацию, а могут и не изменять
  published
    property Pedal: integer read FPedal write SetPedal; // Положение педали
    property Speed: integer read FSpeed;   //Скорость. Пользователь не может менять ее напрямую
    property Koef: integer read FKoef;  // Коэффициент ускорения, выражающий зависимость скорости от положения педали. Задается конструкцией автомобиля, то есть в конструкторе ;)
  constructor Create; // Тут выделяется память и задаются всякие конструктивные особенности
  end;

  { TPlane }

  TPlane = class (TCar)
  private
    FFlyingHeight: integer;  //В этих переменных все и хранится
    FFlyingSpeed: integer;
    FHeightKoef: integer;
  protected
    procedure SetPedal(const AValue: integer); override;  // меняем реализацию педали, не меняя самой педали
  published
    property FlyingSpeed: integer read FFlyingHeight;
    property HeightKoef: integer read FHeightKoef; // У самолета в конструкции заложена еще и зависимость высоты полета от скорости
  end;

implementation

{ Tcar }
// Собственно реализация
procedure TCar.SetPedal(const AValue: integer);  // AValue - новое значение
begin
  if FPedal=AValue then exit;  // если ничего не меняется - на выход
  FPedal:=AValue; // Сохраняем новое значение
  FSpeed:=FPedal*FKoef; //Задаем скорость
end;

{ TPlane }
// реализация самолета
procedure TPlane.SetPedal(const AValue: integer);
begin
// Поскольку скорость и педаль никуда не делись, вызываем унаследованный метод их задания (кстати, у самолета будет другой коэффициент ускорения, который должен быть задан в конструкторе - унаследованный метод это учтет):
  inherited SetPedal(AValue); 
// Но у самолета добавилась высота - изменяем ее:
  FFlyingHeight:=FPedal*FHeightKoef;
end;