IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Mart 2015, 13:53   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Procedure ile comboboxa kontrollü gün ay yıl ekleme




Procedure ile comboboxa kontrollü gün ay yıl ekleme


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
{ dilediğiniz bir combobox nesnesine 01.02.03.....................31 e kadar sayı eklemek.} Procedure GunOlustur(nesne:TComboBox); var i:Integer; strgg:String; begin nesne.Items.Clear; for i:=1 to 31 do begin if Length(IntToStr(i))=1 then begin strgg:='0'+IntToStr(i); nesne.Items.Add(strgg); end else begin nesne.Items.Add(IntToStr(i)); end; end; end; {Kullanımı} GunOlustur(TComboBox(gg)); // gg combobox'ın nesne adı { dilediğiniz bir combobox nesnesine 01.02.03.....................12 e kadar sayı eklemek.} Procedure AyOlustur(nesne:TComboBox); var i:Integer; strgg:String; begin nesne.Items.Clear; for i:=1 to 12 do begin if Length(IntToStr(i))=1 then begin strgg:='0'+IntToStr(i); nesne.Items.Add(strgg); end else begin nesne.Items.Add(IntToStr(i)); end; end; end; {Kullanımı} AyOlustur(TComboBox(aa)); // aa combobox'ın nesne adı { Herhangi bir combobox nesnesine sadece tarih değerini kontrollü şekilde aktarmak.} {Örneğin yaşı 18 den küçük olanların doğum tarihlerini göstermek istemediğiniz durumlarda.} Procedure YilOlustur(yil_oncesi,yil_sonrasi:Integer ; nesne:TFlatComboBox); var i:Integer; ilk_sayi,son_sayi:Integer; begin nesne.Items.Clear; ilk_sayi:=YearOf(date) - yil_oncesi; son_sayi:=YearOf(date) + yil_sonrasi; for i:=ilk_sayi to son_sayi do begin nesne.Items.Add(IntToStr(i)); end; end; {Kullanımı} YilOlustur(75,-18,TFlatComboBox(yyyy)); // yyyy combobox nesne adı // bugünden 75 yıl öncesi doğum tarihli olanlar ve, 18 yıl öncesi doğum tarihi olanlar arasındakiler.


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
ay, comboboxa, ekleme, gÜn, ile, kontrollü, procedure, yıl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Procedure ile Geçen Zaman (Süre) Sayacı Kaf_Dağı Delphi 0 11 Mart 2015 13:47
Procedure ile hafta, ay, gün, yıl hesaplama ve yazdırma Kaf_Dağı Delphi 0 11 Mart 2015 13:46
Geçişler kontrollü AngeL Haber Arşivi 0 01 Ekim 2014 20:59
Procedure Olusturma While,if kullanımı SeckiN MySQL 0 14 Temmuz 2013 22:42