Tabelleninhalt in Checklistbox anzeigen

[MrSpock]

Hallo needatip,

du läufst durch die Tabellee und suchst den entsprechenden Bezeichner in der Liste mit IndexOf:

Delphi-Quellcode:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
   i, index: Integer;
begin
   for i := 1 to CheckListBox1.Count do
      CheckListBox1.State[i-1] := cbUnchecked;
   Table2.Open;
   Table2.First;
   while not Table2.Eof do
   begin
      index := CheckListBox1.Items.IndexOf(Table2Branchen.AsString);
      if index > -1 then
         CheckListBox1.State[index] := cbChecked;
      Table2.Next;
   end;
end;