Contar a repeti��o em um txt

Question

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 p...

R�mulo Barros · Answer

[code:1:a04c3c5bd5]procedure TfrmOpe5EstrelasMais.Button1Click(Sender: TObject);Var  strLstTeste : TStrings;  intC        : Integer;  vetValores  : Arrayy&#91;0..9&93; Of Integer;begin  inherited;  Try    strLstTeste := TStringList.Create;    strLstTeste.Add(�0�);    strLstTeste.Add(�1�);    strLstTeste.Add(�2�);    strLstTeste.Add(�2�);    strLstTeste.Add(�3�);    strLstTeste.Add(�3�);    strLstTeste.Add(�3�);    strLstTeste.Add(�4�);    strLstTeste.Add(�4�);    strLstTeste.Add(�4�);    strLstTeste.Add(�4�);    strLstTeste.Add(�5�);    strLstTeste.Add(�5�);    strLstTeste.Add(�5�);    strLstTeste.Add(�5�);    strLstTeste.Add(�5�);    For intC := 0 To strLstTeste.Count -1 Do    Begin       vetValores&91;StrToInt(strLstTeste&91;intC&93;)&93; := vetValores&91;StrToInt(strLstTeste&91;intC&93;)&93; + 1;    End;    For intC := 0 To Length(vetValores) -1 Do      ShowMessage(�Total de "� + IntToStr(intC) + �" no TStrings: � + IntToStr(vetValores&#91;intC&93;));  Finally    FreeAndNil(strLstTeste);  End;[/code:1:a04c3c5bd5] :wink:  :wink:  :wink:  :wink:  :wink:...

Fabiano_aprendiz · Answer

Caro Colega,
Estou tentando testar sua solu��o, mas quando rodo a aplica��o, o vetor j� icializa com um monte de lixo (creio q seja da mem�ria), como fazer para zerar um vetor ao iniciar a aplica��o?

R�mulo Barros · Answer

Tamb�m percebi isto, mas naum sei porque acontece. Para solucionar este problema, declar o Vetor na se��o Public de seu formul�rio. :wink:  :wink:  :wink:  :wink:  :wink:...

Fabiano_aprendiz · Answer

Funcionou, fico muito agradecido msmo!! Agora sem querer abusar muito to tentando dar uma sofisticada, tipo colocar os n�meros q sairam em ordem decrescente, poderia me dar mais essa dica?
[]�s
Fabiano

Sandra · Answer

[quote:cfea99187c=�Fabiano_Aprendiz�]Caro Colega, Estou tentando testar sua solu��o, mas quando rodo a aplica��o, o vetor j� icializa com um monte de lixo (creio q seja da mem�ria), como fazer para zerar um vetor ao iniciar a aplica��o?[/quote:cfea99187c][quote:cfea99187c=�Undeclared Identifier�]Tamb�m percebi isto, mas naum sei porque acontece. Para solucionar este problema, declar o Vetor na se��o Public de seu formul�rio. :wink:  :wink:  :wink:  :wink:  :wink:[/quote:cfea99187c]Undeclared,N�o seria o caso de inicializar o vetor, antes da utiliza��o? :roll: Mais ou menos assim:[code:1:cfea99187c]begin   inherited;   For IntC := 0 To 9 do    vetValores&#91;IntC&93; := 0;  // zerar os elementos do array vetValores  Try ...[/code:1:cfea99187c]PS: Aproveitei o IntC do tipo inteiro. :mrgreen:...

Beppe · Answer

Fa�am como a Sandra sugeriu. A diferen�a � que vari�veis locais n�o s�o zeradas, ent�o o programador necessita fazer isto explicitamente. J� campos de classes, e vari�veis globais(sem atribui��o do programador) s�o sempre inicializadas com zero.

Uma alternativa, sem precisar de loop�s � FillChar(Sua_Variavel, SizeOf(Sua_Variavel), 0)

Fabiano_aprendiz · Answer

Pessoal, consegui o q queria com a ajuda do nosso colega a� em cima, o c�digo ficou assim:

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(C) + �� 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
Alguem sabe como me ajudar?
Agrade�o a todos,
Fabiano.