Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama
Yeni Konu Aç
Yeni Konu Aç

Delphide T.C. vatandaşlık no kontrol örneği

Konu, 'Delphi' kısmında SADETTİN tarafından paylaşıldı.


  1. SADETTİN

    SADETTİN Seçkin Üye Seçkin Üye

    Kayıt:
    12 Mart 2008
    Mesajlar:
    334
    Beğeni:
    0
    procedure TForm1.Edit1Change(Sender: TObject);
    begin
    edit1.MaxLength:=11;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var
    x:integer;
    begin
    if edit1.Text='' then
    begin
    showmessage('Kayıt Giriniz');
    exit;
    end
    else
    if length(edit1.text) <> 11 then
    begin
    showmessage('Hatalı T.C. no');
    edit1.Text:='';
    edit2.Text:='';
    exit;
    end
    else
    begin
    showmessage(edit1.Text);
    .......
    end;

    end;
     
  2. SADETTİN

    SADETTİN Seçkin Üye Seçkin Üye

    Kayıt:
    12 Mart 2008
    Mesajlar:
    334
    Beğeni:
    0
    Delphi sezonu kapandı herhalde? Bi teşekkür eden yok..: :)
     
  3. halk

    halk Süper Üye Süper Üye

    Kayıt:
    16 Aralık 2011
    Mesajlar:
    1.590
    Beğeni:
    2

Sayfayı Paylaş /bbnetsosyal