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

[compiler]

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

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

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

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

[volvo]

Нужно завести статическое поле/свойство в классе

Можно код для FPC? (вопрос был именно про FPC, так что все сотрясания воздуха о своей крутизне в C#/Java/... можешь оставить при себе для более подходящих случаев )

[hardcase]

Можно код для FPC? (вопрос был именно про FPC, так что все сотрясания воздуха о своей крутизне в C#/Java/... можешь оставить при себе для более подходящих случаев )

Возможно вот так....

Код

interface

    TMyClass = class
    private
        class function GetSingletonObject: TMyClass;
    public
        class property SingletonObject: TMyClass read GetSingletonObject;
    end;
    
implemetation

var
    _SingletonObject: TMyClass;

class function TMyClass.GetSingletonObject: TMyClass;
begin
    Result := _SingleTonObject;
end;

initialization
    _SingletonObject := TMyClass.Create;
    //...дополнительная инициализация....

finalization
    _SingletonObject.Free;

Сообщение отредактировано: hardcase - 24.06.2007 0:45