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;