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ę;)
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.