case mit einem in einem String gespeicherten Variablennamen

[Uwe Raabe]

Manchmal sieht man den Wald vor lauter Bäumen nicht, oder?

Delphi-Quellcode:

procedure TForm1.SetColor(Seite: Integer);
begin
  with ImCube.Canvas do begin
    case Seite of
      1: Brush.Color := clWhite;
      2: Brush.Color := clYellow;
      3: Brush.Color := clGreen;
      4: Brush.Color := clBlue;
      5: Brush.Color := clRed;
      6: Brush.Color := $000080FF;
    end;
  end;
end;

Delphi-Quellcode:

SetColor(FUL);
ImCube.Canvas.Rectangle(10, 64, 60, 114);
//[...]
SetColor(RDR);
ImCube.Canvas.Polygon([Point(196,128),Point(196,178),Point(214,160),Point(214,110)]);