Buscar por:

Calculo de cpf

Código

Implementation

{$R *.dfm}

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  if not (Key in ['0'..'9', #13, #8])then

    Key:= #13;

    if (Length(Edit1.Text) = 3)then

      Edit1.Text:= Edit1.Text+'.';

end;

procedure TForm2.MaskEdit1Exit(Sender: TObject);

var

  i: integer;

  num: string;

begin

    for i := 1 to Length(MaskEdit1.Text) do

    begin

      if MaskEdit1.Text[i] in ['0'..'9'] then

        num:= num+MaskEdit1.Text[i];

    end;

     validaCPF(num);

end;

procedure TForm2.validaCPF(num_string: string);

var

  I, J, L, somadv1, somadv2, dv1, dv2, aux: integer;

begin

  somadv1:=0;

  somadv2:=0;

  for I :=1 to 9 do

  begin

    somadv1:= somadv1 + StrToInt(num_string[I])*I;

  end;

    dv1:= somadv1 mod 11;

   L:= 0;

   for J := 1 to 9 do

     begin

      if (L <> 9)then

         begin

           somadv2:= somadv2 + StrToInt(num_string[J])*L;

           inc(L);

         end;

     end;

         aux:= somadv2 + dv1*9;

         dv2:= aux mod 11;

  Edit2.Text:= IntToStr(dv1) +','+ IntToStr(dv2);

end;

procedure TForm2.MaskEdit1KeyPress(Sender: TObject; var Key: Char);

begin

 if (Length(MaskEdit1.Text) = 9) then

    MaskEdit1Exit(Self);

end;

end.