listbox ta Aradığım kelime kaç tane var

[sako]

Arkadaşlar liztbox içerisinde yer alan listede aradığım kelimeden kaç tane var bulabilir miyim ?

listbox1.ItemIndex:=ListBox1.Items.IndexOf('Bilgisayar Masası '); bu kodla sadece var olup olmadığını anlayabiliyorum ama bana sayısı lazım .

[freeman35]

https://stackoverflow.com/questions/728 ... -in-delphi
Muhtelif yollar var.

[Okann]

Kod: Tümünü seç

function Occurrences(const Substring, Text: String): Integer;
var
  Offset: Integer;
begin
  Result := 0;
  Offset := PosEx(Substring, Text, 1);
  while Offset <> 0 do
  begin
    Inc(Result);
    Offset := PosEx(Substring, Text, Offset + Length(Substring));
  end;
end;

procedure TForm8.Button1Click(Sender: TObject);
var
  I, Sayac: Integer;
begin
  Sayac := 0;
  for I := 0 to ListBox1.Items.Count - 1 do
    Sayac := Sayac + Occurrences(AnsiLowerCase(Edit1.Text), AnsiLowerCase(ListBox1.Items[I]));
  ShowMessage(IntToStr(Sayac));
end;