Contar Repetição Em Txt

[Fabiano_Aprendiz]

Caros colegas, estou com a seguinte dúvida: Tenho um arquivo txt com dezenas de números e a maioria desses números se repetem por várias vz. Criei uma TStringList, agora gostaria de saber, como faço para poder contar a ocorrência de cada um dos números.

Ex: o número 5 se repetiu 10 vz, o 8 repetiu 6.

Agradeço a ajuda.

Fabiano.

[Fabiano_Aprendiz]

Caros colegas, consegui o q queria da seguinte forma:

begin

Try

Lista:= TStringList.Create;

Lista.LoadFromFile (ExtractFileName('numeros.txt'));

For C := 0 To Lista.Count -1 Do

Begin

vetValores[strToInt(Lista[C])] := vetValores[strToInt(Lista[C])] + 1;

End;

For C := 0 to Length(vetValores) -1 Do

Begin

ListBox1.Items.Add('Total de "' + IntToStr© + '" sorteados: ' + IntToStr(vetValores[C]));

end;

Finally

FreeAndNil(Lista);

End;

end;

Da forma como foi implementado, o resultado está assim:

Total de 1 sorteados: 40

Total de 2 sorteados: 48

Total de 3 sorteados: 35

Agora to tentando ordenar isso por ordem decrescente, digo ordenar pelos números q sairam mais vz. Ex: Total de 13 sorteados: 70

Total de 20 sorteados: 68

Total de 48 sorteados: 67

alguém sabe como me ajudar?

Agradeço a todos,

Fabiano.