Kaf_Dağı | 11 Mart 2015 13:53 | 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. |