Farbdatei

[markus5766h]

Hallo,
ich habe die Datei in eine StringList geladen.
Die Komponenten verwalte ich dynamisch in einem Array,
so dass ich die Farbzuweisungen über Schleifen vornehmen kann.
erstmal in der StringList kann man den Zugriff frei gestalten.
Beispiel

Delphi-Quellcode:

procedure ...irgendwas
var
ColorList : TStringList
C1, C2, C3, C4, C5, C6, C7 : TColor;
n : Integer;
begin
ColorList := TStringList.Create;
n := 14; //Farbschema 14
 ColorList.LoadFromFile('Colors.dat');

  C1 := StringToColor(ColorList[n*7]);
  C2 := StringToColor(ColorList[n*7 +1]);
  C3 := StringToColor(ColorList[n*7 +2]);
   .
   .
   .
  C7 := StringToColor(ColorList[n*7+6]);

ColorList.Free;
end;

wahrscheinlich ist es vorteilhafter C1 ... C7 global zu deklarieren -
im Abschnitt private oder public