//循环判断Checkbox是否选中procedure TForm1.Button4Click(Sender: TObject);
var
i: Integer;
begin
memo1.Clear;
for i := 0to ListView1.Items.Count - 1dobeginif ListView1.Items.Item[i].Checked then begin
memo1.Lines.Add(ListView1.Items.Item[i].Caption);
memo1.Lines.Add(ListView1.Items.Item[i].SubItems.Strings[0]);
memo1.Lines.Add(ListView1.Items.Item[i].SubItems.Strings[1]);
end;