contador de palavra no ListBox

Delphi

05/03/2004

[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]


Ponce :)

Ponce :)

Curtidas 0

Respostas

Skaarj

Skaarj

05/03/2004

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;



GOSTEI 0
POSTAR