CheckListBox aus ini Datei lesen

[pszopp]

Hi Marabu,

Zitat von marabu:

Getippt und nicht getestet.

Stimmt, denn ich habe ausnahmsweise einen kleinen Fehler gefunden:

Delphi-Quellcode:

procedure SetCheckedStr(clb: TCheckListBox; s: String);
var
  i: Integer;
begin
  for i := 0 to Pred(clb.Count) do
    //clb.Checked[i] := (i < Length(s)) and (s[i] = '1'); Hier Zugriff auf die Chars 0..Pred(Count) !
    clb.Checked[i] := (Succ(i) <= Length(s)) and (s[Succ(i)] = '1');
end;

Gruß,
pszopp