Contar Letras

Question

Pessoal,Alguem sabe alguma rotina ou forma para contar quantas letras tem em uma palavra.Agrade�o Antecipadamente....

Adriano_servitec · Answer

[quote:5c496c3fbc=�marcelovms�]Pessoal,Alguem sabe alguma rotina ou forma para contar quantas letras tem em uma palavra.Agrade�o Antecipadamente.[/quote:5c496c3fbc]Olah amigo serah que eh isso que vc deseja[code:1:5c496c3fbc]//Para contar quantos caracteres existem em uma frase, declare a seguinte fun��o:function WordsCount(s: string): integer;varps: PChar;nSpaces,n,o : integer;begin//total de palavrasn := 0;//total de letraso := 0;s := s + #0;ps := @s&91; 1 &93;;while( 0 <> ps^ ) dobeginwhile((� � = ps^)and(0 <> ps^)) dobegininc( ps );//conta total de letrasinc(o);end;nSpaces := 0;while((� � <> ps^)and(0 <> ps^))dobegininc(nSpaces);inc(ps);//conta total de letrasinc(o);end;if ( nSpaces > 0 ) thenbegininc( n );end;end;//recebe o total de letras contadas incluindo os espacosResult := o;end;procedure TForm1.Button1Click(Sender: TObject);beginlabel1.caption:=FloatToStr(WordsCount(Edit1.Text))end;[/code:1:5c496c3fbc]Usei um edit e button e um label para msotrar o resultado...

Marcelovms · Answer

N�o t� funcionando, aparece o erro que WordsCount n�o foi declarado, coisa semelhante.Tem que declarar alguma coisa???O Function ficar� junto aos Procedures???valeu Colega.Sds...

Paullsoftware · Answer

Deixando o c�digo enxuto!!coloque um Edit, um button e label, no OnClick do button fa�a:[code:1:2f030975d4]Label1.Caption := IntToStr(Length(Edit1.Text))[/code:1:2f030975d4]se � s� contar os caracteres isso serve! :wink:...

Nightshade · Answer

o length(String) nao serve?ele mosra o tamanho da tua string, pegando inclusive os espa�os dela na contagem..pelo q entendi da sua pergunta eh isso q vc ker certo?...

Massuda · Answer

O c�digo do adriano_servitec conta quantas palavras tem na string.

Se quiser saber o tamanho de uma string, use Length() como indicado pelos outros colegas.

Para saber quantas letras tem numa string, fa�a algo assim:

var
  S: string;
  I: Integer;
  N: Integer;
...
  S := �jk3 iuew 09f j98 r32uj sdfo�
  N := 0;
  for I := 1 to Length(S) do begin
    if UpCase(S[I]) in [�A�..�Z�] then begin
      Inc(N);
    end;
  end;
  // N tem o total de letras (caracteres entre A e Z) em S
...

Adriano_servitec · Answer

[quote:7865b6adfd=�marcelovms�]N�o t� funcionando, aparece o erro que WordsCount n�o foi declarado, coisa semelhante.Tem que declarar alguma coisa???O Function ficar� junto aos Procedures???valeu Colega.Sds[/quote:7865b6adfd]Nao nao precisa declarar nada nao. Mai no caso acho codigo do [b:7865b6adfd]paullsoftware[/b:7865b6adfd] que esse fica melhor[code:1:7865b6adfd]Label1.Caption := IntToStr(Length(Edit1.Text))[/code:1:7865b6adfd] e como ele disse mais enxuto...

Marcelovms · Answer

Muito obrigado galera, funcionou Blz....

F�rum Contar Letras #333639