Operator Overloading for CLASSES (not records!)

[himitsu]

Nativ fehlt halt so Einiges in Delphi, was man schonmal gebraucht hätte. (Einiges gibt es zum Glück von Fremdanbietern, was aber auch schnell den Gesamtpreis von Delphi etwas in die Höhe treibt)

DefaultPropery für Strings (das mit dem Default-Attritut ist schon blöd, denn Eines steht davor und das Andere dahinter und wenn ich jetzt frage wer von euch überhaupt weiß dass es sowas gibt, dann hebt bestimmt kaum jemand die Hand), Attribute hinter dem was man beschreiben will (statt davor/drüber), kleine Makros, assoziative Arrays, ein besseres CASE, ...

Nicht schön, aber was soll's.

Delphi-Quellcode:

case IndexStr(S, ['A', 'B', 'C']) of
  0{A}: ...;
  1{B}: ...;
  2{C}: ...;
end;

type TX = (A, B, C);
//case TX(IndexStr(S, ['A', 'B', 'C'])) of
case TX(GetEnumValue(TypeInfo(TX), S)) of 
  A: ...;
  B: ...;
  C: ...;
end;