NOT funktioniert nicht bei Klasse mit boolean default property

[Friday]

Hallo,
ich hab eine Klasse "TMyClass" mit der ich mehrere properties vereine, eine davon ist ein boolean und zugleich die default property.

folgendes funktioniert:

Code:

var MyVar: TMyClass
...
...
if MyVar = true then
...

aber dieses

Code:

if MyVar then

oder

Code:

if not MyVar then

bringt die Fehlermeldung dass der Typ vom Boolean sein sollte, aber vom Typ TMyClass ist.

Um zumindest das NOT verwenden zu können, habe ich eine Operatorüberladung probiert:

Code:

class operator TMyClass.LogicalNot (a:TMyClass): TMyClass;
begin
  Result.OldVal := not a.OldVal;  // Default Wert invertieren
end;

aber ohne Wirkung. Fehlermeldung bleibt die gleiche.

Natürlich kann ich überall das "= true" oder "= false" hinzufügen, aber ich würde es gerne eleganter lösen (und dabei etwas dazu lernen).

[Perlsau]

Und wo hast du deklariert, daß MyVar ein Boolean sein soll? Soweit ich sehen kann, hast du MyVar quasi als Pointer deklariert, der auf den Speicherbereich einer noch zu erzeugenden Instanz von TMyClass zeigt. Wenn du oben auf True prüfst, machst du lediglich einen Integervergleich: Wenn MyVar = 1. Analog dazu erhältst du logischerweise eine Fehlermeldung, wenn du versuchst, einen Nicht-Boolean-Ausdruck als Boolean-Ausdruck zu verwenden. MyVar ist keine Boolean-Variable, wogegen der Ausdruck (MyVar = 1) einen Boolean-Ausdruck darstellt: er ist nämlich entweder wahr oder falsch.

[Bernhard Geyer]

Wir halt eine kleine Macke des Compilers sein.
Du solltest aber auch mit

if not MyVar.<BoolVarible> then zurecht kommen.

[Furtbichler]

Zitat von Perlsau:

Und wo hast du deklariert, daß MyVar ein Boolean sein soll?

Er schreibt, das eine Boolean-Property seine Defaultproperty ist.

Ich halte das für einen Designfehler, der die Lesbarkeit des Codes drastisch verschlechtert. Ich kann mir gerade noch eine Array-Property als default property vorstellen, aber sonst nicht.

Delphi-Quellcode:

if MyClass.IsSomeCondition then
// ist wesentlich lesbarer als
if MyClass then

[Blup]

Versuch mal so:

Delphi-Quellcode:

class operator TMyClass.LogicalNot (a:TMyClass): Boolean;
begin
  Result := not a.OldVal; // Default Wert invertieren
end;

[Neutral General]

Zitat von Blup:

Versuch mal so:

Delphi-Quellcode:

class operator TMyClass.LogicalNot (a:TMyClass): Boolean;
begin
  Result := not a.OldVal; // Default Wert invertieren
end;

class operatoren funktionieren nur für records!

[Uwe Raabe]

Zitat von Friday:

ich hab eine Klasse "TMyClass" mit der ich mehrere properties vereine, eine davon ist ein boolean und zugleich die default property.

Dann zeig doch bitte mal deine Klassen-Deklaration und nennen die Delphi-Version mit der du arbeitest.

An deinen bisherigen Ausführungen gibt es ein paar Ungereimtheiten. So hat eine Klasse (zumindest bis XE3) kein Operator overload und eine Default-Eigenschaft einer Klasse muss immer ein Array-Property sein.

[Friday]

Zitat von Uwe Raabe:

So hat eine Klasse (zumindest bis XE3) kein Operator overload und eine Default-Eigenschaft einer Klasse muss immer ein Array-Property sein.

Die boolean-Property als Default zu deklarieren wurde mir nicht gleich als Fehler angezeigt, als alle anderen Fehler behoben waren hat es der Compiler aber getan. Von daher hat sich die Sache ohnehin schon erledigt. (Verstehe die Restriktion von Delphi auf array-Typen allerdings nicht)

Ich dachte gelesen zu haben dass Operator-Überladungen auch bei Klassen anwendbar sind, allerdings habe ich nur Beispiele für Records gefunden. Lag damit wohl zum zweiten mal daneben.

Delphi Version ist XE3 Pro, aber das ändert nun wohl auch nix mehr.

Danke trotzdem

[Sir Rufo]

class operators für Klassen soll mit XE4 kommen

Es gibt keine Beschränkung bei default properties aber der Zugriff gestaltet sich eben schwierig

[Uwe Raabe]

Zitat von Friday:

Die boolean-Property als Default zu deklarieren wurde mir nicht gleich als Fehler angezeigt, als alle anderen Fehler behoben waren hat es der Compiler aber getan. Von daher hat sich die Sache ohnehin schon erledigt. (Verstehe die Restriktion von Delphi auf array-Typen allerdings nicht)

Also das geht:

Delphi-Quellcode:

type
  TMyClass = class
  private
    function GetMyProp(Index: Integer): Boolean;
    procedure SetMyProp(Index: Integer; const Value: Boolean);
  public
    property MyProp[Index: Integer]: Boolean read GetMyProp write SetMyProp; default;
  end;

Der Compiler erkennt bei MyClass[0], anhand der eckigen Klammern, daß hier die Standard-Array-Eigenschaft gemeint ist.

Das geht nicht:

Delphi-Quellcode:

type
  TMyClass = class
  private
    FMyProp: Boolean;
  public
    property MyProp: Boolean read FMyProp write FMyProp; default;
  end;

Das geht zwar wieder:

Delphi-Quellcode:

type
  TMyClass = class
  private
    FMyProp: Boolean;
  public
    property MyProp: Boolean read FMyProp write FMyProp default true;
  end;

hat aber eine vollkommen andere Bedeutung.