class operator OnesComplement ? o.O

[himitsu]

Ja ähhhhhhhh,

im Grunde weiß ich was diese Operation machen sollte, ich kann sie sogar implementieren.

Delphi-Quellcode:

type
  TTest = record
    x: Integer;
    class operator OnesComplement(a: TTest): TTest;
  end;

Aber praktisch hab ich keine Ahnung wie ich das verwenden soll.

Rein praktisch ist es ja eine Art "BitwiseNot", aber x := not X; wird nicht angenommen.



Nja, bin zufällig auf diesen Operator gestoßen, aber bisher scheint ihn noch keiner zu kennen.

Weder die OH, nur die hat ja eh nie eine Ahnung, aber auch Google weiß von nix
und in der DP und Co. kennt Dieses scheinbar auch noch keiner?


Ach ja, nur zur Info, das sind übrigens alle Operatoren, welche der XE3-Compiler kennt:
Explicit Implicit Add Subtract Multiply Divide Modulus LogicalAnd LogicalOr LogicalXor LogicalNot LeftShift RightShift BitwiseAnd BitwiseOr BitwiseXor
Equal GreaterThan LessThan NotEqual GreaterThanOrEqual LessThanOrEqual Inc Dec Negative Positive OnesComplement

(gut, den Positive-Operator hab ich auch noch nie verstanden, da er mathematisch praktisch nutzlos ist und die Operatoren, welche ich mir mal gewünscht hab, gibt es leider immernoch nicht )




NOT wird ja komischer Weise nut von LogicalNot behandelt, selbst wenn es mal ein "BitwiseNot" sollte (i := not 1 ), was es aber nicht gibt.
Und warum es überhaupt Logical- und Bitwise.Operatoren gibt, ist auch unklar, da man das in Delphi nicht via Code entscheiden kann, außer das Booleans Logical sein sollten und der Rest Bitwise. (wie in C die |, ||, & und && gibt's halt nicht)

[marky522]

Hallo Himitsu,

bitweises invertieren läßt sich auch durch folgende Operation durchführen:

bei Bytes:
x := x xor $FF
bei Word:
x := x xor $FFFF
bei Integer:
x := x xor $FFFFFFFF
usw.

mfg

Markus

[himitsu]

Ich wollte es nicht nutzen ... war nur neugierig, da es das ja scheinbar gibt, aber es noch keiner kenn


bei Bytes:
x := not x oder x := x xor not 0
bei Word:
x := not x oder x := x xor not 0
bei Integer:
x := not x oder x := x xor not 0
usw.

oder eben LogicalNot nutzen und darin einfach bitweise Invertieren

[himitsu]

Da ich grade wieder drüber gestopert bin und meinen alten Post in Google fand... (falls es auch Andere finden)

OnesComplement ist in Delphi nicht nutzbar (auch wenn man es dort implementieren kann).
Es ist eigentlich für den C++Builder gedacht und .NET kennt den Befehl ebenfalls. LogicalNot ist also das "logische not" (Boolean) und OnesComplement das "binäre not" (Integer).

Außerdem gibt es auch noch die undokumentierten True und False.
Für if MyRecord then implementiert man somit das MyRecord.True , wobei man natürlich auch einen Implicit-Cast nach Boolean verwenden könnte.

Schachsinnig ist, daß der Delphicompiler bei if not MyRecord then nicht das MyRecord.False oder not MyRecord.True benutzt, sondern es zwanghaft nach MyRecord.LogicalNot.True übersetzen will, was beim Fehlen des LogicalNot schön knallt.

Delphi-Quellcode:

TRecord = record
  class operator OnesComplement(A: TRecord): TRecord;
  class operator True(A: TRecord): boolean;
  class operator False(A: TRecord): boolean;
end;

[Stevie]

Zitat von himitsu:

Außerdem gibt es auch noch die undokumentierten True und False.

Cool, die kannt ich gar nicht - und hätt sie neulich sogar gebrauchen können

[himitsu]

IstWar halt geheim.

Hier nochmal alles, was die Kompiler (bis XE7) kennen:
http://geheimniswelten.de/sonstiges/...senoperatoren/
(fehlt nur noch Initialize, Finalize und CopyRecord )

[Der schöne Günther]

Oder man erlaubt endlich einen impliziten Standard-Konstruktoraufruf (und Destruktor) für Records. Warum das nicht implementiert ist habe ich nie verstanden.

[himitsu]

OK, ob es Initialize und Finalize heißt (siehe die Funktionen in der System.pas) oder Contrucor (ohne Parameter) und Destructor, ist ja erstmal egal. (aber stimmt, deinee Namen klingen besser)
Es werden für Records bereits diese Methoden ausgeführt (siehe System.pas), aber es gibt keine Weiterleitung zu "eigenen" Implementationen, was sich durch die zentralen Stellen hätte bestimmt ganz leicht implementieren lassen.

[Mavarik]

Zitat von himitsu:

CopyRecord )

Jo das Fehlt!

und was ist Convert?

[himitsu]

Zitat von Mavarik:

und was ist Convert?

Meinst du die "Konvention"?

Delphi-Quellcode:

var
  A, B: TMyRecord;
begin  // Initialize/Create
  ...
  A := B;  // Copy (B -> A) + Finalize (altes A)
  ...
end;  // Finalize/Destroy

Beim Copy werden "direkte" Inhalte kopiert (Move) und Referenzen von Interface, String, dyn. Array, Variant und ARC-Objecten behandelt,
aber eigene Behandlungen kann man nicht durchühren, wie z.B. das darin verlinkte Interface/Objekt zu klonen, was man oft benötigen könnte.