mask lı tarih alanına nasıl boş değer atarım

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
serkan
Üye
Mesajlar: 666
Kayıt: 10 Tem 2003 12:08
Konum: bursa

mask lı tarih alanına nasıl boş değer atarım

Mesaj gönderen serkan »

slm arkadaşlar bir tarih kontrolü bileşenin . . şeklinde masklı(RX Dateedit)ben bu alana tarih girilmemişse başka bir alanda arama yaptırmak istiyorum.ama bu alana tarih girilmediğini anlamak için text özelliğini kullanmamız gerekir alan masklı olduğu için boş olma şartı yazamıyorum hata veriyor.
if
dateedit1.text=' . . ' bu kontrole tarih girilmemişse boştur başka bir alanda arama yap gibi bir kodu nasıl yazarım.
mavsar

Mesaj gönderen mavsar »

Şu an makinemde kurulu bir Rx bileşen seti yok ama Value diye bir propertysinin olması gerekiyordu onu kontrol et istersen.
serkan
Üye
Mesajlar: 666
Kayıt: 10 Tem 2003 12:08
Konum: bursa

Mesaj gönderen serkan »

malesef yok value değeri başka bir tarih kontrolü bilen varmı değeri boş olarak atanabilecek?
mavsar

Mesaj gönderen mavsar »

Selam Serkan senin için Rx bileşenini indirdim.

Şöyle yaparsan senin için daha iyi olur. DateEdit nesnesinin default date'i '30.12.1899' sen bu değeri kontrol ettir.

If DateEdit1.Date<>'30.12.1899' Then
Begin
{Tarih girilmişse veya seçilmişse bu aradaki işlemler yapılır}
End
Else
Begin
{Boşsa buradaki şartlar çalışır}
End;

Aslında direkt 30.12.1899 demek ileride başınıza problem açabilir.Şöyleki regional settingsin date'i . değilde / ise programın çökertme oynamaya başlar :) Bunun için yapman gereken spesifik yaklaşım şu şekilde olabilir

Kod: Tümünü seç

If DateEdit1.Date=EncodeDate(1899,12,30) Then
    Showmessage('Boş')
  Else
    Showmessage('Dolu');
serkan
Üye
Mesajlar: 666
Kayıt: 10 Tem 2003 12:08
Konum: bursa

Mesaj gönderen serkan »

teşekkürler..operation succesfully.
Cevapla