Stringlist in Array übertragen

[himitsu]

Delphi-Quellcode:

Type TClrArr = Array of TColor;

Procedure TForm1.FillArray(StrLst: TStringList; Var ClrArr: TClrArr);
  Var ni: Integer;

  Begin
    SetLength(ClrArr, StrLst.Count);
    For ni := 0 to StrLst.Count - 1 do
      ClrArr[ni] := StringToColor(StrLst[ni]);
  End;

Procedure TForm1.FormCreate(Sender: TObject);
  Var ClrArr: TClrArr;
    StrLst: TStringList;

  Begin
    StrLst := TStringList.Create;
    StrLst.Add('clRed');
    StrLst.Add('clBlue');

    FillArray(StrLst, ClrArr);

    Label1.Color := ClrArr[0];
    Label1.Font.Color := ClrArr[1];
  End;

Hab mal einiges berichtigt/geändert:

• Prozedur(Input, Output);
• ClrArr als Var-Paramerter deklariert (siehe OH)
• TStrings zu TStringList
• "Array of TColor" als globalen Typ deklariert