Перегрузка операторов в Делфи

[rublyabachka]

Вы не подскажете как перегрузить операторы:
1):= Бинарный Оператор класса;
2)- Унарный Дружественный оператор.
спасибо!

[Zer0]

Если не изменяет память, с Delphi 2007 можно
Для этого объявляются классовые операторы:

class operator Subtract(a,b:тип):тип;
class operator Implicit(a:тип):тип;

и соответственно их реализация

Например:

TMyClass = class
  class operator Implicit(a:TMyClass):TMyClass;
  class operator Subtract(a,b:TMyClass):TMyClass;
  .....
  private
    FInt:integer;
  public
    property IntProp:integer read FInt write FInt;
end;

TMyClass.Implicit(a:TMyClass):TMyClass;
begin
 Result.IntProp:=a.IntProp;
end;

TMyClass.Subtract(a,b:TMyClass):TMyClass;
begin
 Result.IntProp:=a.IntProp-b.IntProp;
end;

[Stilet]

Чесно говоря не в курсе как с классами, но вот с записями можно поступать так:

type
 c=record
   private
    i:integer;
    class operator Dec(a:c):c;
 end;

class operator c.Dec(a: c): c;
begin
 Result.i:=a.i-1;
end;

var q,w:c;
begin
 q.i:=3;
 dec(q);
 write(q.i);
 readln;
end.

Код понятен или пояснить?

[rublyabachka]

ага, а как быть если дружественный? там слово friend писать? и где его писать?

[Stilet]

Чего не знаю того не скажу. Не доводилось еще юзать новодельфийские фички.
Загляни в хелп Эмбаркадеро.

[rublyabachka]

честно говоря с этим сайтом незнакома, даже хелп найти не могу(((