Buscar por:

Checa cartão de credito

Código

{Boa função para checar cartao de credito}

function ValidCartao(const parStr:string): Boolean;

var

    Valor, Soma, Multiplicador, Tamanho, i : Integer;

begin

    Result := False;

    Multiplicador := 2;

    Soma := 0;

    Tamanho := Length(parStr);

    for i := 1 to Tamanho - 1 do

        begin

            Valor := StrToInt (Copy (parStr, i, 1)) * Multiplicador;

            Soma := Soma + (Valor div 10) + (Valor mod 10);

            if Multiplicador = 1 then

               Multiplicador := 2

            else

               Multiplicador := 1;

        end;

    if IntToStr ((10 - (Soma mod 10)) mod 10) = Copy (parStr, Tamanho, 1) Then

       Result := True;

end;

para usar:

OnProcedure();

if ValidCartao(edit1.Text) = true then

showmessage('OK')

else

showmessage('nao');