Items einer CheckListBox mit Strings eines Memos abgleichen

[Sharky]

Hai kingflo,

ich würde das so machen:

Delphi-Quellcode:

procedure TForm1.btn_TestClick(Sender: TObject);
var
  ndx : integer;
  index : integer;
begin
  for ndx := 0 to Pred(CheckListBox1.Count) do // Alles auf UnChecked
  begin
    CheckListBox1.Checked[ndx] := False;
  end;

  for ndx := 0 to Pred(mem_Memo1.Lines.Count) do // Alle Zeilen des Memos
  begin
    index := CheckListBox1.Items.IndexOf(mem_Memo1.Lines[ndx]);
    if (index <> -1) then
    begin
      CheckListBox1.Checked[index] := True;
    end;
  end;
end;

Oder noch einfacher

Delphi-Quellcode:

procedure TForm1.btn_Test2Click(Sender: TObject);
var
  ndx : integer;
begin
  for ndx := 0 to Pred(CheckListBox1.Count) do
  begin
    CheckListBox1.Checked[ndx] := mem_Memo1.Lines.IndexOf(CheckListBox1.Items[ndx]) <> -1;
  end;
end;