ООП во FP, робота с обьектами Опции

[compiler]

вот какой вопрос возник(словами не получается попробую на примере)
дано 3 объекта(одного типа M с двумя полями- днем и месецем.) необходимо прочитать данные для первых 2-х объектов(это я сам сделаю) и ввести разницу дат в 3-ий объект(как).

примечание
первый и второй объект являются родительскими для третьего.
Помогите.. Собственно у меня все получается кроме обработки данных

интересно было бы увидеть реализацию и на TP.

Сообщение отредактировано: compiler - 22.04.2007 16:36

[volvo]

Что непонятно? Ну, вот, скажем:

unit z;

interface

type
  T = class
  private
    function GetMaxSize: integer;
  public
    property maxSize: integer read GetMaxSize;
  end;

implementation

const
  the_max_size = 20;

function T.GetMaxSize: integer;
begin
  result := the_max_size;
end;

end.

uses z;

var
  obj: T;

begin
  obj := T.create;
  writeln(obj.maxSize);
end.

Что будет напечатано?

А теперь попробуй получить доступ к the_max_size НЕ через maxSize... То есть, эффект совершенно аналогичен тому, как если бы константа была описана в самом классе...

[compiler]

кажется понял, спасибо...

с меня +

Добавлено через 3 мин.
и еще вопрос... можно ли для класса описать сравнение с нулем?