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

[compiler]

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

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

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

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

[volvo]

{$mode objfpc}
type
  dir = (left, right, up, dn);
  T = object
    x, y: integer;
    procedure print;
  end;

procedure T.print;
begin
  writeln('X: ', x, ' Y: ', y);
end;

const
  p: array[dir] of record
    s: string;
    px, py: integer;
  end =
  (
    (s:'left' ; px:-1; py: 0),
    (s:'right'; px: 1; py: 0),
    (s:'up'   ; px: 0; py:-1),
    (s:'dn'   ; px: 0; py: 1)
  );


operator := (const d: dir): T;
begin
  with result do begin
    x := p[d].px; y := p[d].py;
  end;
end;

operator := (const s: string): T;
var i: dir;
begin
  result.x := 0; result.y := 0;

  for i := low(dir) to high(dir) do
    if p[i].s = s then
      with result do begin
        x := p[i].px; y := p[i].py;
      end;

end;

var
  x: T;

begin
  x := 'left';
  x.print;

  x := 'right'; // <--- Здесь - работаешь со строкой
  x.print;

  x := up; // <--- А тут - с перечислимым типом
  x.print;
end.

нельзя ли использовать различные методы сравнения(в смысле перезагруженные операторы сравнения) в зависимости от передаваемых параметров?

Можно, только для этого должны перегружаться операторы для сравнения данных разных типов... Например, так:

// Тут твой тип будет сравниваться с целым числом
operator < (x: T; i: integer): boolean;
begin
  // ...
end;
// А тут - со вторым значением такого же типа
operator < (x: T; i: T): boolean;
begin
  // ...
end;

[compiler]

Огромное спасибо! но у меня есть пару вопросов, может некоторые прямо не касающееся темы...

type
  dir = (left, right, up, dn); // ? dir это множество?
  T = object
    x, y: integer;
    procedure print;
  end;

const
  p: array[dir] of record//???
    s: string;
    px, py: integer;
  end = //?
  (
    (s:'left' ; px:-1; py: 0),
    (s:'right'; px: 1; py: 0),
    (s:'up'   ; px: 0; py:-1),
    (s:'dn'   ; px: 0; py: 1)
  );
оperator := (const d: dir): T; //вот это здорово! 
//а то я делал по аналогии со сравнением,
 //приходилось описывать возращаемый результат
 //и 2 получаемых(правильный термин?)...

еще раз спасибо!