bir arkadaşımın isteği uzerine yolluyorum bu kod kredi kartın kontrolunu yapıyor.

// Formunuza bir Edit birde Button bırakın.
// Edit'e yazacağınız kredi kartı numarasının doğru olup olmadığını butona basarak oğrenebilirsiniz.

Alıntı:
Unit Unit1;

Interface

Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

Type
TForm1=Class(TForm)
Edit1 : TEdit;
Button1 : TButton;
Function KartNumarasiGecerlimi(KartNo : String) : Boolean;
Procedure Button1Click(Sender: TObject);
Private
Public
End;

Var
Form1 : TForm1;

Implementation



Function TForm1.KartNumarasiGecerlimi(KartNo : string) : Boolean;
Var
i,c,v,t : Integer;
b : Boolean;
Begin
Result:=False;
i:=Length(KartNo);
b:=False;
t:=0;
Try
For c:=i-1 DownTo 1 Do
Begin
b:=Not b;
v:=StrToInt(Copy(KartNo,c,1));
If b=True Then v:=((v*2) Div 10)[(v*2) Mod 10);
t:=t+v;
End;
v:=((10-(t Mod 10)) Mod 10)-(StrToInt(Copy(KartNo,i,1)));
If v=0 Then Result:=True;
Except
MessageDlg('Girilen numarada hata var.'+#13+#10+'Lutfen sadece rakam kullanınız.',mtError,[mbOK],0);
End;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If KartNumarasiGecerlimi(Edit1.Text) Then ShowMessage('Gecerli bir kredi kartı numarası')
Else ShowMessage('Bu numara gecersiz');
End;

End.

// Kolay gelsin.

__________________