minha duvida é sobre como fazer um function que conte a quantidade de palavras em uma string eu fiz uma aqui mais contem erros, alguém poderia me ajudar? function CountWords(var text: string): integer;
var tam,qtd,i,a: integer;
begin
qtd:=0;
tam := length(text);
for i:= 1 to tam do
begin
a:=i+1;
if (text[i] =' ') then
else
begin
if (text[a] =' ') or (text[i] =text[tam])then
qtd:=qtd+1;
end;
end;
CountWords:=qtd;
end;
no caso ele vai verificar caracter por caracter e se for espaço ele pula, se não for ele vê se o caracter seguinte é um espaço não sendo ele conta 1, e faz o for ateh completar o length
e pra chamar ela no prog principal:
if menu = 2 then
begin
quant:= CountWords(text);
writeln(text);
writeln('Quantidade de palavras = ', quant);
writeln('Aperto ENTER para volta para o menu');
readln;
end; grato :P
