Eigene Operatoren definieren?

[dominikkv]

Delphi-Quellcode:

TTest = record
  private
    Data: Integer;
  public
    class operator Implicit(I: Integer): TTest;
    class operator Implicit(T: TTest): Integer;
    class operator Add(A, B: TTest): TTest;
  end;

// ...

class operator TTest.Add(A, B: TTest): TTest;
begin
  result.Data := A.Data + B.Data;
end;

class operator TTest.Implicit(I: Integer): TTest;
begin
  Result.Data := I;
end;

class operator TTest.Implicit(T: TTest): Integer;
begin
  result := T.Data;
end;