Verificar Cartão de Credito: Function - Delphi

Olá galera, nesta Quick Tips, irei mostra como podemos validar os dígitos de um cartão de crédito, assim como é feito para validação de CNPJ e CPF, uma rotina pronta para uso, vamos à construção da mesma.

Criamos uma função chamada ValidarCartaCredito, com os parâmetro pCartao: String, retornando uma valor Integer. Veremos agora a implementação desta função.

function TFrmPrincipal.ValidarCartaoCredito(pCartao: string): Integer;

var

xCartao: string[21];

VetCartao: array[0..21] of Byte absolute xCartao;

kCartao: Integer;

Cstr: string[21];

y, x: Integer;

begin

Cstr := '';

FillChar(VetCartao, 22, #0);

xCartao := pCartao;

for x := 1 to 20 do

if (VetCartao[x] in [48..57]) then

Cstr := Cstr + chr(VetCartao[x]);

xCartao := '';

xCartao := Cstr;

kCartao := 0;

if not odd(Length(xCartao)) then

for x := (Length(xCartao) - 1) downto 1 do

begin

if odd(x) then

y := ((VetCartao[x] - 48) * 2)

else

y := (VetCartao[x] - 48);

if (y >= 10) then

y := ((y - 10) + 1);

kCartao := (kCartao + y)

end

else

for x := (Length(xCartao) - 1) downto 1 do

begin

if odd(x) then

y := (VetCartao[x] - 48)

else

y := ((VetCartao[x] - 48) * 2);

if (y >= 10) then

y := ((y - 10) + 1);

kCartao := (kCartao + y)

end;

x := (10 - (kCartao mod 10));

if (x = 10) then

x := 0;

if (x = (VetCartao[Length(xCartao)] - 48)) then

Result := Ord(Cstr[1]) - Ord('2')

else

Result := 0

end;

Usando a função.

Vamos adicionar 1 Edit(EdtCartaoCredito), 1 Label(LblResultado), e 1 BitBtn(BtnTestarCartao), e no clique do botão vamos implementar o seguinte :

procedure TFrmPrincipal. BtnTestarCartao Click(Sender: TObject);

begin

case ValidarCartaoCredito(EdtCartaoCredito.Text) of

0: LblResultado.Caption := 'Este Cartão é invalido ou desconhecido';

1: LblResultado.Caption := 'Este Cartão é um AmEx';

2: LblResultado.Caption := 'Este Cartão é um Visa';

3: LblResultado.Caption := 'Este Cartão é um MasterCard;

end;

end;

Quando incluir o número do seu cartão, caso ele seja AmEx, Visa ou MasterCard, você poderá ver que uma mensagem será passada para o Caption do LblResultado, caso o valor seja inválido também será trato este tipo de erro. Como podemos notar, existe um Calculo assim como é feito no CPF e no CNPJ.

Podemos criar uma unit, separada e implementar a mesma para reaproveitarmos esta função.

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br