Delphi 7 Tc Kimlik Dorulama

Delphi 7 ile TC Kimlik Dorulama

TC kimlik numarası, Türkiye Cumhuriyeti vatandaşlarına verilen 11 haneli bir numaradır. Bu numara, vatandaşların kimliklerini tespit etmek ve çeşitli işlemlerde kullanılmak üzere kullanılır. Delphi 7, TC kimlik numarasını doğrulamak için kullanılabilecek bir dizi işlev içerir. Bu işlevler, TC kimlik numarasının geçerliliğini kontrol etmek ve numaradan çeşitli bilgileri çıkarmak için kullanılabilir.

TC Kimlik Numarasının Geçerliliğini Kontrol Etme

TC kimlik numarasının geçerliliğini kontrol etmek için Delphi 7’deki IsValidTCNo işlevi kullanılabilir. Bu işlev, TC kimlik numarasını bir parametre olarak alır ve numaranın geçerli olup olmadığını bir Boolean değeri olarak döndürür.

delphi
function IsValidTCNo(TCNo: string): Boolean;

Aşağıdaki kod örneği, IsValidTCNo işlevini kullanarak bir TC kimlik numarasının geçerliliğini kontrol etmektedir:

delphi
var
TCNo: string;
begin
TCNo := '12345678901';
if IsValidTCNo(TCNo) then
ShowMessage('TC kimlik numarası geçerlidir.')
else
ShowMessage('TC kimlik numarası geçersizdir.');
end;

TC Kimlik Numarasından Bilgi Çıkarma

TC kimlik numarasından çeşitli bilgiler çıkarılabilir. Bu bilgiler, GetTCNoInfo işlevi kullanılarak elde edilebilir. GetTCNoInfo işlevi, TC kimlik numarasını bir parametre olarak alır ve numaradan çeşitli bilgileri içeren bir TCNoInfo nesnesi döndürür.

delphi
function GetTCNoInfo(TCNo: string): TCNoInfo;

TCNoInfo nesnesi, aşağıdaki bilgileri içerir:

  • TCNo: TC kimlik numarası
  • Cinsiyet: Kişinin cinsiyeti
  • DogumYili: Kişinin doğum yılı
  • DogumAyi: Kişinin doğum ayı
  • DogumGunu: Kişinin doğum günü
  • IlKodu: Kişinin doğum yeri il kodu
  • IlceKodu: Kişinin doğum yeri ilçe kodu
  • SemtKodu: Kişinin doğum yeri semt kodu
  • MahalleKodu: Kişinin doğum yeri mahalle kodu

Aşağıdaki kod örneği, GetTCNoInfo işlevini kullanarak bir TC kimlik numarasından çeşitli bilgileri çıkarmaktadır:

“`delphi
var
TCNo: string;
TCNoInfo: TCNoInfo;
begin
TCNo := ‘12345678901’;
TCNoInfo := GetTCNoInfo(TCNo);

ShowMessage(‘TC kimlik numarası: ‘ + TCNoInfo.TCNo);
ShowMessage(‘Cinsiyet: ‘ + TCNoInfo.Cinsiyet);
ShowMessage(‘Doğum yılı: ‘ + TCNoInfo.DogumYili);
ShowMessage(‘Doğum ayı: ‘ + TCNoInfo.DogumAyi);
ShowMessage(‘Doğum günü: ‘ + TCNoInfo.DogumGunu);
ShowMessage(‘Doğum yeri il kodu: ‘ + TCNoInfo.IlKodu);
ShowMessage(‘Doğum yeri ilçe kodu: ‘ + TCNoInfo.IlceKodu);
ShowMessage(‘Doğum yeri semt kodu: ‘ + TCNoInfo.SemtKodu);
ShowMessage(‘Doğum yeri mahalle kodu: ‘ + TCNoInfo.MahalleKodu);
end;
“`

Faydalı Siteler ve İlgili Dosyalar

Yayımlandı

kategorisi