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