FunÇao Em C++ Builder

[Guest WAGNER ALEXANDRE]

OLÁ PESSOAL, PRECISO QUE ALGUÉM ME DIGA COMO TRANSFORMAR A FUNÇÃO ABAIXO DE DELPHI PARA O C++, POR FAVOR ME AJUDEM, AH SE ALGUÉM TIVER A FUNÇÃO DE VERIFICAR CPF, POR FAVOR ME MANDEM. OBRIGADO.

//Função p/ inserir os ZEROS no Código

function StrZero(intValor,intComprimento: integer): string;

var strValor,strZeros,strRetorno: string;

intTamanho,intContador: integer;

begin

strValor := IntToStr(intValor);

intTamanho := Length(Trim(strValor));

strZeros := '';

for intContador := 1 to intComprimento do

strZeros := strZeros + '0';

strRetorno := Copy(Trim(strZeros)+Trim(strValor),intTamanho+1,intComprimento);

Result := strRetorno;

end;

// Função p/ Gerar o Novo código c/ o Dígito Verificador

function NovoRegistro (TamanhoCod, DigitoCod: integer): string;

var i, peso,soma,resto: integer;

numero, dig: string;

begin

numero := strzero(DigitoCod,TamanhoCod-1);

peso := TamanhoCod;

soma := 0;

for i := 1 to TamanhoCod-1 do

begin

soma := soma + peso*strtoint(numero);

peso := peso-1;

end;

resto := soma mod 11;

if resto > 1 then

dig := inttostr(11-resto)

else

dig := '0';

result := numero + dig;

end;

[iSoron]

Poxa cara, além de você querer tudo pronto, ainda fala gritando.

Se tiver em duvida em alguma função, pergunte, mas não espere que um programador VB/C++ venha aqui converter o seu código. Se quiser mexer com c++, é melhor ter calma e estudar direito.

[]'s

iSoron.