wiederholungen zusammenfassen?

[alzaimar]

Delphi-Quellcode:

Const
  Zahlen : Array [28..29,0..3] of (
    (255,255,255,240),
    (255,255,255,248)
);

Begin
  If Zahl7 in (27,28) Then Begin
    Zahl5 := Zahlen [Zahl7,0];
    Zahl6 := Zahlen [Zahl7,1];
    Zahl7 := Zahlen [Zahl7,2];
    Zahl8 := Zahlen [Zahl7,3];
  End;
end;

Bei den Zahlen handelt es sich ja um Konstanten und daher sollten sie auch entsprechend deklariert werden.