Função Lenght() Pascal

[M@luco Belez@]

Ai galera,beleza?

preciso fazer uma funçao chamanda len() que faça a mesmo coisa q a lengt(), ou seja, contar os caracteres de uma string.

Em Pascal

Se alguém souber posta ai, e se eu conseguir coloco aqui tb.

valeu

[Graymalkin]

Como strings são tratadas como vetores de caracteres, você pode usar a função High() para obter o maior índice do(a) vetor/string. Vale lembrar que uma string, quando não declarado o seu tamanho, tem um tamanho de 255 caracteres (por isso o retorno de high() será 255). Esses caracteres ficam preenchidos com o valor do caracter nulo (chr(0)), daí para saber o tamanho da string é só percorrê-la até encontrar o primeiro nulo. Exemplo:

program t;
var s : string;
    cont, i : integer;

begin
     s := 'teste';
     for i:=1 to high(s) do
         if s[i]=chr(0) then
            break
         else
            cont := cont+1;

     writeln(s);
     writeln(cont);
     readln;
end.

Mas, por que não usar a função length() diretamente?

Abraços,

Graymalkin