wiederholungen zusammenfassen?

[Garfield]

Vielleicht so:

Delphi-Quellcode:

procedure Eintragen(Neue5, Neue6, Neue7, Neue8: Integer);
begin
  Zahl5 := Neue5;
  Zahl6 := Neue6;
  Zahl7 := Neue7;
  Zahl8 := Neue8;
end;

...

Case Zahl17 of
  28 : Eintragen(255, 255, 255, 240);
  29 : Eintragen(255, 255, 255, 248);
end;