Wer hilft mir ein Stück Code zu komprimieren?

[Bernhard Geyer]

Evtl mit einem Record und einem Array davon

Delphi-Quellcode:

type
  TMyRec = record
    Image3: string;
    Blue1: Boolean;
    Vistal: Boolean;
    ...
  end;

const
  MyValues: array[0..4] of TMyRec = (
    (Image3 = 'Image24'; Blue1 = False; ....)
    ...
  );

und dann abhängig von Background-Wert den passenden Index nehmen.