Delphi Ile Tc Kimlik Dogrulama

Delphi ile TC Kimlik Doğrulama

TC kimlik numarası, Türkiye Cumhuriyeti vatandaşlarına verilen 11 haneli bir numaradır. Bu numara, kişinin doğum tarihi, cinsiyeti ve doğum yeri gibi bilgilerini içerir. TC kimlik numarası, birçok resmi işlemde kullanılır. Bu nedenle, bu numaranın doğruluğunun kontrol edilmesi önemlidir.

Delphi, TC kimlik numarasının doğruluğunu kontrol etmek için kullanılabilecek bir programlama dilidir. Delphi ile TC kimlik numarası doğrulama işlemi, aşağıdaki adımlarla gerçekleştirilebilir:

  1. Delphi IDE’sini açın ve yeni bir proje oluşturun.
  2. Projenize bir form ekleyin.
  3. Forma bir metin kutusu, bir düğme ve bir etiket ekleyin.
  4. Metin kutusuna “TC Kimlik Numarası” yazın.
  5. Düğmeye “Doğrula” yazın.
  6. Etikete “Doğrulama Sonucu” yazın.
  7. Düğmeye çift tıklayın ve aşağıdaki kodu ekleyin:

delphi
procedure TForm1.Button1Click(Sender: TObject);
var
KimlikNo: string;
DogruMu: boolean;
begin
KimlikNo := Edit1.Text;
DogruMu := Dogrula(KimlikNo);
if DogruMu then
Label1.Caption := 'Doğru'
else
Label1.Caption := 'Yanlış';
end;

  1. Aşağıdaki kodu formunuzun başlangıç bölümüne ekleyin:

“`delphi
function Dogrula(KimlikNo: string): boolean;
var
i, Toplam1, Toplam2: integer;
begin
if Length(KimlikNo) <> 11 then
Result := False;

Toplam1 := 0;
for i := 1 to 9 do
Toplam1 := Toplam1 + StrToInt(KimlikNo[i]) * (11 – i);

Toplam2 := 0;
for i := 1 to 10 do
Toplam2 := Toplam2 + StrToInt(KimlikNo[i]) * (10 – i);

Result := (Toplam1 + Toplam2) mod 10 = StrToInt(KimlikNo[11]);
end;
“`

  1. Projenizi kaydedin ve çalıştırın.

  2. Metin kutusuna TC kimlik numaranızı girin ve “Doğrula” düğmesine tıklayın.

  3. Etikette TC kimlik numaranızın doğru olup olmadığı gösterilecektir.

Faydalı Siteler ve Dosyalar

Yayımlandı

kategorisi