LISTBOX - liczenie pozycji które mają konkretną treść

Witam,
chodzi mi o to że mam w listbox'ie np.

A
A
A
A
B
A
A
B
A
B

i chce żeby mi policzyło ile jest B

proszę o pomoc
Z góry dziękuję;)

Co za problem ? Wystarczy pętla for, warunek, inkrementacja i gotowe.
Btw. Proponuje, żebyś zapoznał się z podstawami.

#Zrób pętle od 0 do ilości elementów w ListBox - 1
#Sprawdzaj czy konkretny element ListBox'a jest równy Twojemu
#Jeżeli tak, zwiększ zmienną pomocniczą o 1.

intensywnie googl'ując znalzałem var Start, i: integer;

begin
if LastSearch = LowerCase(Edit1.Text) then Start := LastIndex + 1 else Start := 0;
if LastSearch <> LowerCase(Edit1.Text) then LastSearch := LowerCase(Edit1.Text);


for i := Start to ListBox1.Items.Count - 1 do
begin
if pos(LowerCase(Edit1.text), LowerCase(ListBox1.Items[i])) > 0 then
  begin
   ListBox1.ItemIndex := i;
   LastIndex := i;

   Break;

jakbu to przerobić bo nie bardzo wiem jak zwiększać wartość pomocniczą

Zwiększać tą wartość można tak

var
  Pomocnicza: Integer;
begin
  Pomocnicza := Pomocnicza + 1;
end;

Co da ten sam efekt co

Inc(Pomocnicza);

A co do kodu, widzę że próbujesz coś sam zrobić więc pomogę.

var 
  I, IloscPozycji: Integer;
  S: String;
begin
  S := Edit1.Text;
 
  for I := 0 to ListBox1.Items.Count - 1 do
    if ListBox1.Items[I] = S then Inc(IloscPozycji);
  
  ShowMessage('Ilość pozycji wynosi: ' + IntToStr(IloscPozycji));
end;

dzięki wielkie, sam bym chyba nie doszedł do tego

translate.google.pl hehe. Tez to samo mam. Potem sa problemy w znalezieniu odpowiednich metod komponentow.