ListView, Column Count?

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    function Foo: Integer;
  public
    { Public declarations }
  end;

Delphi-Quellcode:

function TForm1.Foo: Integer;
var
  i: Integer;
  cnt: Integer;
begin
  cnt := 0;
  for iLoop := 0 to Pred(ListView1.Items.Count) do 
    if Listview1.Items[iLoop].SubItems[6] = '-1' then 
    begin 
      Inc(cnt);
    end; 
  end;
  result := cnt;
end;

StatusBar1.Panels[0].Text := 'Need: '+IntToStr(Foo);