String in Array zerlegen (Markanter Punkt: ',')

[rebugger]

Ja, is klar...
Blick nur nich durch, was daran geändert werden muss (welcher array wert dort hineingehört)

Habe nun eine extra funktion für den aufruf von parse() geschrieben:

Code:

function TMain.Intialize_Highlight(Highlight: TSynHighlighterAttributes; Section: String; Part: String; Standard: String): Bool;
var
  ini: TIniFile;
  tmp_style: TZeile;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'highlight.cfg');
  try
    tmp_style := Parse(ini.ReadString(Section,Part,Standard), 0);
    Highlight.Foreground := StrToInt(tmp_style[0]);
    Highlight.Background := StrToInt(tmp_style[1]);

    if StrToInt(tmp_style[2]) = 1 then
      Highlight.Style := [fsBold];
    if StrToInt(tmp_style[3]) = 1 then
      Highlight.Style := [fsItalic];
    if StrToInt(tmp_style[4]) = 1 then
      Highlight.Style := [fsUnderline];
    if StrToInt(tmp_style[5]) = 1 then
      Highlight.Style := [fsStrikeOut];
  finally
    ini.Free;
  end;
  result := TRUE;
end;

Jetzt müsste nur noch der Fehler in der Funktion Parse() gefixed werden.
Weiß aber net, was da reingehört !