Eigene Operatoren definieren?

[himitsu]

gute Frage ... FreePascal scheint es zu können ...
http://community.freepascal.org:1000...forum_id=24084

[sirius]

Zitat von himitsu:

Class Operator für Klassen und Interfaces bekommt man auch hin ... man muß nur ein bissl Arbeit reinstecken

--> TCustomVariantType

[himitsu]

TCustomVariantType ist aber nur 'ne Verwaltungsklasse für einen eigenen "Variant"-Typen

und Variants sind schon ganz schön große "Records".

Aber man bekommt ein Objekt auch so mit Operatoren versehn, so daß es auch noch wie ein eigenständiges/normales Objekt reagieren kann.

[Teekeks]

Hmmm, ich hab jetzt das

Delphi-Quellcode:

operator + (a,b:integer ):string;//da bleibt er stehen
implementation
operator + (a,b:integer ):string;
begin
  result:=inttostr(a+b);
end;

Aber ich bekomme gesagt:

Zitat:

unit1.pas(20,33) Error: Impossible operator overload

Warum?

Gruß Teekeks
[Edit]
Das hier steht in der Graphmath.pp von lazarus:

Delphi-Quellcode:

Operator + (Addend1, Addend2 : TFloatPoint) : TFloatPoint;
implementation
Operator + (Addend1, Addend2 : TFloatPoint) : TFloatPoint;
begin
// irgendwas
end;

Also scheint die Syntax korrekt zu sein...

[mkinzler]

operator + (a,b:integer ) Result: Integer; Das Ergebnis ist natürlich vom selben Typ

[sirius]

Zitat von himitsu:

Aber man bekommt ein Objekt auch so mit Operatoren versehn, so daß es auch noch wie ein eigenständiges/normales Objekt reagieren kann.

Aber nicht in D7

[himitsu]

hast du dir mal den Link in #11 angesehn?
(vorallem die Antwort ... weil das war genau das gleiche Problem)

[add]
nee, ab D2006 (@sirius)

[Teekeks]

@himitsu: hab ich und geht nicht...

Und in der graphmath.pp steht auch folgendes:

Delphi-Quellcode:

Operator + (Addend1 : TFloatPoint; Addend2 : Extended) : TFloatPoint;
implementation
Operator + (Addend1 : TFloatPoint; Addend2 : Extended) : TFloatPoint;
begin
// irgentwas
end;

Also sollte die Syntax korrekt sein. (die genannte Unit gehört zur LCL)

[himitsu]

probier einfach mal "add" statt "+"

[Teekeks]

Hmmm, neee ich hab gerade den Fehler gefunden:
Es muss ein selbst-definierter Type sein!