Stringlist in Array übertragen

[himitsu]

StringList zu Array_of_Color:

Delphi-Quellcode:

Var I: Integer;
  Farben: TStringList;
  FarbenA: Array of TColor

Farben := ('clBlack', 'clRed', '$4D56F4')

SetLength(FarbenA, Farben.Count);
For I := 0 to Farben.Count - 1 do
  FarbenA[I] := StringToColor(Farben[I]);

FarbenA := ($000000, $0000FF, $4D56F4)

Array_of_Color zu StringList

Delphi-Quellcode:

Var I: Integer;
  Farben: TStringList;
  FarbenA: Array of TColor

FarbenA := ($000000, $0000FF, $4D56F4)

SetLength(Farben, FarbenA.Count);
For I := 0 to Farben.Count - 1 do
  ColorToIdent(FarbenA[I], Farben[I]);

Farben := ('clBlack', 'clRed', '$4D56F4')