boolean ohne variable?

[Sharky]

Es gibt schon Fälle wo es nett ist:

Delphi-Quellcode:

type
  TmyColor = record
      case boolean of
      true  : (Color : TColor);
      false : (ColorR  : Byte;
               ColorG  : Byte;
               ColorB  : Byte;)
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  myColor : TmyColor;
begin
  myColor.Color := clLime;
  Label1.Caption := 'Rotanteil  : ' + IntToStr(mycolor.ColorR);
  Label2.Caption := 'Grünanteil : ' + IntToStr(mycolor.ColorG);
  Label3.Caption := 'Blauanteil : ' + IntToStr(mycolor.ColorB);
end;

Und schon kann ich ganz elegant auf die einzelnene Anteile einer Farbe zuweisen :stupid:

[maximov]

Oder eine matrix, die man über feldnamen oder array-adressierung ansprechen will:

Delphi-Quellcode:

TD3DMatrix = packed record
    case Integer of
      0 : (_00, _01, _02, _03,
           _10, _11, _12, _13,
           _20, _21, _22, _23,
           _30, _31, _32, _33 : Single);
      1 : (m : array [0..3, 0..3] of Single);
  end;

Also, nix da 'finger weg' ...wenn man weiß was man tut.

[Hansa]

Zitat:

Zitat von maximov

...wenn man weiß was man tut.

Eben drum. :mrgreen:

[NicoDE]

Zitat:

Zitat von glkgereon

nochmal ne frage...also so:

Delphi-Quellcode:

type
  TTest = record
    Variable:Typ;
    case Typ of //bezieht sich auf die zuletzt genannte Variable des Typs 'Typ'
      Wert1: (a:Typa, b:Typb);//Fall 1
      Wert2: (x:Typx, y:Typy);//Fall 2
  end;

ist das so korrekt?
mit kommentaren, ends und allem?

Fast, Semikolon statt Kommata:

Delphi-Quellcode:

type
  TTest = record
    case Variable: Typ of  // Gleich hier, statt davor (verdeutlicht besser die Bedeutung von 'Variable')
      Wert1: (
        a: Typa;  // Semilkolon
        b: Typb);
      Wert2: (
        x: Typx;
        y: Typy);
  { end; }  // unnötig, da variante Member ohnehin nur am Ende erlaubt
  end;

[StefanDP]

man könnte es auch einsetzen, um geziehlt bitmanipulation zu betrieben:

Delphi-Quellcode:

type
  TFlags = record
    case boolean of
    TRUE:  (Flags: Byte);
    FALSE: (F1, F2, F3, F4, F5, F6, F7: Boolean;)
  end;

:mrgreen:
damit kann man beliebigs bits im byte ändern, aber auch das ganze byte mit einem wisch aus/einlesen

stefan

[NicoDE]

Zitat:

Zitat von StefanDP

man könnte es auch einsetzen, um geziehlt bitmanipulation zu betrieben

Nope (Boolean = ByteBool), dafür würde man eher Sets verwenden.
(Bitte erst Testen, bevor man wilde Behauptungen aufstellt...)

[Chewie]

Na ja, bei FreePascal könnte es so gehen (wenn ich mich richtig erinnere).

Da gibts sowas wie

Delphi-Quellcode:

type TPackedBool = packed Array[0..7] of Boolean;

Hab aber leider den FPC grad nicht zur Hand, kanns also nicht testen,
Ist außerdem eh ein andres Thema ;)

[NicoDE]

Zitat:

Zitat von Chewie

bei FreePascal könnte es so gehen

Nope.

[Pseudemys Nelsoni]

Zitat:

Zitat von Hansa

2. sie bringen keinen Vorteil.

Zitat:

Zitat von maximov

...wenn man weiß was man tut.

Zitat:

Zitat von Hansa

Eben drum. :mrgreen:

da hast dich aber schnell rausgeredet :P :mrgreen:

[Hansa]

Zitat:

Zitat von Pseudemys Nelsoni

...da hast dich aber schnell rausgeredet :P :mrgreen:

nix rausreden. :mrgreen: Keine Angst, ich habe die Varianten schon getestet und sehe nur keinen Vorteil darin, eine Variable 2mal zu deklarieren und dann noch verschieden. Was soll das für ein Programm werden ?

Bzw., wer soll das verstehen ? Sagen wir mal nach 1 Jahr ? :shock: