Como Contar A Quantida De Letras De Uma Palavra?

[jeancainelli]

Prezados amigos,

Estou precisando fazer um programa que leia um arquivo de texto.TXT e gere um outro, como se fosse um compilador, então eu preciso que alguém me ajude, pois não sei como faço para contar quantas letras tem uma palavra, ou como faço para copiar os 4 primeiros caracteres do texto que estou lendo.

Obrigado pela atenção,

Ate + .

[Progr'amador]

Olá,

Use essa função.

function ContarLetras( s : string ) : integer;
var
  ps: PChar;
  nSpaces,n,o : integer;
begin
  n := 0;
  o := 0;
  s := s + #0;
  ps := @s[ 1 ];
  while( #0 <> ps^ ) do begin
     while((' ' = ps^)and(#0 <> ps^)) do begin
        inc( ps );
        inc(o);
     end;
     nSpaces := 0;
     while((' ' <> ps^)and(#0 <> ps^))do begin
        inc(nSpaces);
        inc(ps);
        inc(o);
     end;
     if ( nSpaces > 0 ) then
        inc( n );
  end;
  Result := o;
end;

teste:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(IntToStr(ContarLetras(Edit1.Text)));
end;

Abs. Progr'amador.

[M@luco Belez@]

a função Length() não faz a mesmo coisa?

para copiar os caracteres você pode usar a função copy()

[Progr'amador]

a função Length() não faz a mesmo coisa?

para copiar os caracteres você pode usar a função copy()

Tem razão! rs.

Viajei legal nessa

De qualquer forma essa função que passei é boa, que se tiver mas de uma palavra em uma string ele não conta os espaços, já o Length conta tudo até os espaços entre as palavras.

Valeu pela observação!

Abs. Progr'amador.