Statusbar

[wicht]

Etwa so, lieblos und ohne Tests niedergeschrieben:

Delphi-Quellcode:

var
  Item: TListItem;
  i: Integer;
  Maennlich, Weiblich, Gesamt: Integer;
begin
  Maennlich := 0;
  Weiblich := 0;
  Gesamt := lstMenschen.Items.Count;
  for i := 0 to lstMenschen.Items.Count - 1 do
  begin
    if lstMenschen.SubItems[0].Caption = 'Maennlich' then
      Inc(Maennlich);
    if lstMenschen.SubItems[0].Caption = 'Weiblich' then
      Inc(Weiblich);
  end;
  Status.Panels[0].Text := Format('%d Maennlich, %d Weiblich', [Maennlich, Weiblich]);
end;

HTH