[Delphi] Contar palavras num texto

[Ryokusei 21]

Neste artigo irei ensinar como calcular o número de palavras de uma string.

Para definir uma palavra usaremos a seguinte definição: "Palavra é todo conjunto de caracteres delimitados por um espaço (caractere 32)".

 

Iremos utilizar um código em assembly e não utilizaremos funções do Delphi. Por que?

Porque assim o código fica mais limpo, bonito e rápido. Se fosse utilizar as funções Pos, Length, Copy, Delete ou qualquer outra o código de máquina ficaria enorme a execução do mesmo ficaria mais lenta se comparada ao assembly puro.

 

1 - Inicie um novo projeto no Delphi. Adicione os seguintes componentes com as propriedades:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

2 - Dê dois cliques no botão para ir ao evento OnClick dele.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

3 - Insira o algorítmo abaixo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

4 - Compile e seja feliz.

 

O algorítmo acima foi inteiramente escrito por mim, se você utilizar/copiar/citar dê créditos.

O algorítmo acima foi testado com diversas possibilidades de erro e funciona sem problemas. Ex:

string='p p p p p '; (5 palavras)

string=''; (0 palavras)

string=' '; (0 palavras)

string=' p ppppp p p pp ppp p ppp p '; (9 palavras)