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

[compiler]

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

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

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

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

[volvo]

Ты пытаешься вызвать процедуру через тип объекта, а для этого надо static метод... В FPC нереализуемо, если у тебя o1 является Object-ом, а не Class-ом... С Class-ом будет так:

{$mode objfpc}

unit e1;
interface

type
  o1 = class
    class procedure p();
  end;

implementation

procedure o1.p();
begin end;

end.

, тогда

procedure o2.pr();
begin
  o1.p(); // здесь - Ok
end;

Ну, а на самом деле я думаю, что тебе надо бы объявить экземпляр объекта типа o1, и вызывать для него метод P:

var
  ex1: o1;
procedure o2.pr();
begin
  ex1.p();
end;