ForumSevgisi.Com

  ForumSevgisi.Com > ForumSevgisi Webmaster Bölümü > Webmaster Genel

Webmaster Genel Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


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

Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


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

ForumSevgisi Webmaster Bölümü Kategorisinde ve Webmaster Genel Forumunda Bulunan Procedure ile comboboxa kontrollü gün ay yıl ekleme Konusunu Görüntülemektesiniz,Konu İçerigi Kısaca ->> Procedure ile comboboxa kontrollü gün ay yıl ekleme Procedure ile comboboxa kontrollü gün ay yıl ekleme Kod: { dilediğiniz bir ...

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
LinkBack Seçenekler Stil

Okunmamış 09 Nisan 2015, 16:31   #1
Durumu:
Çevrimdışı
Kaf_Dağı - ait Kullanıcı Resmi (Avatar)
Arastirmaci
Üyelik tarihi: 26 Ekim 2014
Şehir: ~~~~~~
Mesajlar: 1.130
Konular: 710
Beğenilen: 168
Beğendiği: 334
www.forumsevgisi.com
Standart Procedure ile comboboxa kontrollü gün ay yıl ekleme

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

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


Kod:
        { 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.

________________
.........................
imza
Alıntı ile Cevapla
Yeni Konu aç  Cevapla

Etiketler
comboboxa, ekleme, gun, ile, kontrollu, procedure, procedure ile comboboxa kontrollü gün ay yıl ekleme, yil

Seçenekler
Stil


Saat: 12:40

Forum Yasal Uyarı
vBulletin® ile Oluşturuldu
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.

ForumSevgisi.Com Her Hakkı Saklıdır
Tema Tasarım:
Kronik Depresif


Sitemiz bir 'paylaşım' sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabiliyorlar. Bu sebepten ötürü, sitemizdeki mesaj ya da konulardan doğabilecek yasal sorumluluklar o yazıyı paylaşan kullanıcıya aittir ve iletişim adresine mail atıldığı taktirde mesaj ya da konu en fazla 48 saat içerisinde silinecektir.

ankara escort, izmir escort ankara escort, ankara escort bayan, eryaman escort, bursa escort pendik escort, antalya escort,