Questão de Informática — TRT - 10¬ REGI+O (DF e TO) — 2004 — Diversas

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;