case mit einem in einem String gespeicherten Variablennamen

[patti]

Eine andere Möglichkeit wäre es, die Color-Werte als const-array zu hinterlegen und dann per Index darauf zuzugreifen. Beispiel:

const FarbenArray : array[1..6] of TColor = (clWhite, clYellow, clGreen, clBlue, clRed, $000080FF); Dann kannst du beispielweise so darauf zugreifen:

Delphi-Quellcode:

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

So kannst du dir die zusätzliche Routine (und damit auch das case) sparen

MFG,
Patti