🚀 go-pugleaf

Można zrobić operatory na interfejsie, a klasę zrobić dziedziczącą po 
TInterfacedObject.
Trzeba jednak pamiętać, by operować na zmiennych "interfejsowych" a nie 
"klasowych".

=======
{$mode objfpc}

type IKlasa = interface
        function getvalue:integer;
        procedure setvalue(v:integer);
        property value:integer read getvalue write setvalue;
     end;

type TKlasa = class(TInterfacedObject,IKlasa)
       fvalue:integer;
       constructor Create(x:integer);
       destructor Destroy; override;
       function getvalue:integer;
       procedure setvalue(v:integer);
       property value:integer read getvalue write setvalue;
     end;

constructor TKlasa.Create(x:integer);
begin
  writeln('konstruktor ',x);
  value:=x;
end;

destructor TKlasa.Destroy;
begin
  writeln('destruktor ',value);
end;

procedure TKlasa.setvalue(v:integer);
begin
  fvalue:=v;
end;

function TKlasa.getvalue:integer;
begin
  getvalue:=fvalue;
end;

operator +(a,b:IKlasa):IKlasa;
begin
  result:=TKlasa.Create(a.value + b.value);
end;

var a,b,c,d:IKlasa;

begin
  a:=TKlasa.Create(2);
  b:=TKlasa.Create(3);
  c:=TKlasa.Create(4);
  d:=a+b+c;
  writeln('wynik: ',d.value);
end.

=======

konstruktor 2
konstruktor 3
konstruktor 4
konstruktor 5
konstruktor 9
wynik: 9
destruktor 5
destruktor 2
destruktor 3
destruktor 4
destruktor 9



-- 
Azarien