Klassen Operatoren

[Andreas L.]

Hallo,

ich habe gerade das Tutorial über TVersion und Klassen-Operatoren von Codehunter gelesen.

Jetzt wollte ich versuchen ob man auch richtige Klassen statt Records mit diesen Operatoren ausstatten kann.

In der Delphi Online-Hilfe steht das auch Klassen mit Operatoren überladen werden können:

Zitat:

Nur die in der Tabelle aufgeführten Operatoren können für eine Klasse oder einen Record definiert werden.

http://docwiki.embarcadero.com/RADSt...atoren_(Delphi)

Das ist mein Code:

Delphi-Quellcode:

...
type
  TTest = class
  private
    FValue: Integer;
  public
    class operator Equal(A: TTest; B: TTest): Boolean; // Zeile 14!
  published
    property Value: Integer read FValue write FValue;
  end;
...
class operator TTest.Equal(A: TTest; B: TTest): Boolean;
begin
  Result := A.Value = B.Value;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  test1: Ttest;
  test2: Ttest;
begin
  test1 := TTest.Create;
  try
    test2 := TTest.Create;
    try
      test1.Value := Edit1.Text.ToInteger;
      test2.Value := Edit2.Text.ToInteger;

      ShowMessage(BoolToStr(test1 = test2, True));
    finally
      test2.Free;
    end;
  finally
    test1.Free;
  end;
end;

Leider erhalte ich folgende Fehlermeldung vom Compiler:

Zitat:

[dcc32 Fehler] Unit1.pas(14): E2123 PROCEDURE, FUNCTION, PROPERTY oder VAR erwartet

Warum geht das bei mir nicht? Was mache ich falsch?

[Neutral General]

Funktioniert nur mit Records.

[Der schöne Günther]

Der Grund ist auch relativ einfach erklärt: Records werden automatisch freigegeben, Klassen nicht. Angenommen du überlädst den + Operator und rechnest d := a + b + c . a + b ergibt ein temporäres Objekt das dann mit c verrechnet wird. Wer gibt das frei? Niemand. Speicherleck.

[Uwe Raabe]

Das ist ein Fehler in der Doku - offenbar ein Relikt aus .NET-Zeiten. Der Text müsste mal komplett überarbeitet werden, aber dafür fehlt mir gerade die Zeit. Man könnte es aber so auch stehen lassen und hoffen, daß der Compiler irgendwann mal nachzieht...

[TigerLilly]

Zitat von Uwe Raabe:

Man könnte es aber so auch stehen lassen und hoffen, daß der Compiler irgendwann mal nachzieht...

:- ) Das nennt man dann die normative Kraft des Faktischen.

[Stevie]

Zitat von Der schöne Günther:

Der Grund ist auch relativ einfach erklärt: Records werden automatisch freigegeben, Klassen nicht. Angenommen du überlädst den + Operator und rechnest d := a + b + c . a + b ergibt ein temporäres Objekt das dann mit c verrechnet wird. Wer gibt das frei? Niemand. Speicherleck.

Macht nur leider kein Sinn bei Operatoren, die keine neuen Werte/Instanzen erzeugen, wie Vergleiche.

[Der schöne Günther]

Macht auch keinen Sinn dass es (meine ich) auf den ARC-Compilern auch nie funktioniert hat.

[Stevie]

Zitat von Der schöne Günther:

Macht auch keinen Sinn dass es (meine ich) auf den ARC-Compilern auch nie funktioniert hat.

Doch, hat es

[TurboMagic]

Gemeldet:
https://quality.embarcadero.com/browse/RSP-26605