Regimento Interno

Conforme a sintaxe e a semântica da linguagem Delphi, julgue os itens a seguir.

O código abaixo indica, por meio da variável Resultado,

a posição de um determinado caractere dentro de uma

string.

function TDPosCarac(aCh : AnsiChar; const S : string) :

integer;

var

i : integer;

begin

Resultado := 0;

for i := 1 to length(S ) do

if (S[i] = aCh) then begin

Resultado := Resultado + i;

Exit;

end;

end;