Listview -> checked?

[sakura]

Lasst uns die primitivste Methode noch ein wenig optimieren

Delphi-Quellcode:

function isCheckedItem: boolean; 
var 
  i: integer; 
begin 
  for i := 0 to listview1.Items.Count - 1 do 
    if Listview1.Items[i].Checked then
    begin
      result := true;
      exit;
    end;
  result := false; 
end;

......