Contar caracteres en strings de pascal

[El Antiguo]

Lauta, eso es porque es un valor tipo char. Usa la funcion ORD para imprimir el numero tipo byte que corresponde a ese caracter y veras que es la longitud de la cadena.

Código (pascal) [Seleccionar] Expandir


uses crt;
var a:string;
begin
  a:='cadena';
  write(ord(a[0]));
  readln;
end.


[Beta69]

program lenght;
uses crt;
var apeynom: ansiString;
begin
   clrscr;
   
   writeln('Funcion Length ');
   writeln;
   writeln('Inserte su nombre completo:  ');
   
   readln(apeynom);
   writeln;
   write(' Su nombre tiene    ');
   write( length(apeynom), '  letras');
   readkey;
   end.
   
Espero que te sirva..