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

[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 von maximov:

...wenn man weiß was man tut.

Eben drum.

[NicoDE]

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;

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

stefan

[NicoDE]

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 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 von Chewie:

bei FreePascal könnte es so gehen

Nope.

[Pseudemys Nelsoni]

Zitat von Hansa:

2. sie bringen keinen Vorteil.

Zitat von maximov:

...wenn man weiß was man tut.

Zitat von Hansa:

Eben drum.

da hast dich aber schnell rausgeredet

[Hansa]

Zitat von Pseudemys Nelsoni:

...da hast dich aber schnell rausgeredet

nix rausreden. 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 ?