tc kimik noyu parçalama

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1270
Kayıt: 27 Eyl 2003 10:12
Konum: Samsun
İletişim:

tc kimik noyu parçalama

Mesaj gönderen ALUCARD »

arkadaşlar benimn sorunum elimde 11 haneli tckimlik nosu var
benım bunu 11 ayrı parçaya bolmem lazım çünkü her sayıyı farklı yere yazmam lazım
bi türlü beceremedim :cry:

bi yardım ederseniz sevinirim. :lol:
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR
a_o
Üye
Mesajlar: 84
Kayıt: 18 Eki 2005 04:41
Konum: Tekirdağ

Mesaj gönderen a_o »

mrb
copy fonksiyonuyla teker teker alabilirsin karakterleri;)
ii çalışmalar
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1270
Kayıt: 27 Eyl 2003 10:12
Konum: Samsun
İletişim:

Mesaj gönderen ALUCARD »

a_o yazdı:mrb
copy fonksiyonuyla teker teker alabilirsin karakterleri;)
ii çalışmalar
hocam bi örnek yazabilirmisin

teşekkür ederim. :)
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7604
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Copy(string değer, başlangıç karakteri, kaç karakter kopyalanacak)

mesela

Copy('123456789', 1,3)

1. karakterden başlar, 3 karakter kopyalar. Yani '123' ü alır. Bu şekilde istediğin gibi parçalayabilirsin.

Bu arada yöntemin bana biraz garip geldi?? Neden TC Kimlik No'yu 11 parça gösteresin???

Kolay gelsin.
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1270
Kayıt: 27 Eyl 2003 10:12
Konum: Samsun
İletişim:

Mesaj gönderen ALUCARD »

mussimsek yazdı:
Bu arada yöntemin bana biraz garip geldi?? Neden TC Kimlik No'yu 11 parça gösteresin???
hocam matbu bir form var tc kimlik numarasının herbirinin bir kutuya denk gelmesi gerekiyor da ondan
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR
Kullanıcı avatarı
ALUCARD
Üye
Mesajlar: 1270
Kayıt: 27 Eyl 2003 10:12
Konum: Samsun
İletişim:

Mesaj gönderen ALUCARD »

hocam cok teşekkür edrim istediğim gibi oldu

Kod: Tümünü seç

edit3.Text:= copy(edit1.Text,strtoint(edit2.Text),1);
yapmak istediğimde buydu
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz

Erkan ÇAĞLAR
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

veya bir döngü ile

Kod: Tümünü seç

// bu tc kimlik no olsun
edit1.text:= '23121332312123';

edit2.text:= edit1.text[1];
edit3.text:= edit1.text[2];
....
....
Cevapla