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