contador de palavra no ListBox

Question

[b:19d9d6896c]Algu�m saberia como fa�o para criar uma rotina que pudesse contar num determinado ListBox quantas vezes uma determinada palavra aparece e joga-la num Label?
Se algu�m puder me ajudar, agrade�o.

_____________________________
:arrow: Em terra de programador, quem tem Delphi � rei.[/b:19d9d6896c]

Skaarj · Answer

Nao sei a sua possibilidade, mas envia primeiro a uma stringlist os dados e depois pro listbox, segue um exemplo procurando pela string �2�:

var
  Palavras: TStringList;
  Index,i,cont: Integer;
begin
  Palavras := TStringList.Create;
  try
    cont:=0;
    i:=1;
    Palavras.Add(�1�);
    Palavras.Add(�2�);
    Palavras.Add(�3�);
    Palavras.Add(�2�);
    Palavras.Add(�2�);
    Palavras.Add(�2�);
    Palavras.Sort;
    if Palavras.Find(�2�, Index) then
    begin
      ListBox1.Items.AddStrings(Palavras);
      inc(cont);
      i:=index;
      while Palavras.Strings[i] = �2� do
        begin
          inc(cont);
          inc(i);
        end;
      label1.caption:=inttostr(cont);
    end;
  finally
    Palavras.Free;
  end;

F�rum contador de palavra no ListBox #218479