procedure TForm3.Table1BeforePost(DataSet: TDataSet);
begin
if table1ayri_tr='!99/99/99;1;_' then
table1ayri_tr.asdatetime:=null;
end;
kodum bu :Yapmak istediğim ise kayıt etmek istediğmde üyeiptal tarihi
boş olduğunda programın geçersiz tarih hatası vermemesi.(maskedit kullanıyorum)
bu kodda imcompatible types sting & datafield hatası alıyorum
Ne yapabilirim.
teşekürler.
daha detaylı sorayım
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
kodda bir yazım hatası yapmışsın. dikkat edilmesi gereken bir durum. derlerken hata vermez fakat
yerine
yazmalısın.
Kod: Tümünü seç
if table1ayri_tr = '!99/99/99;1;_' then
Kod: Tümünü seç
if table1ayri_tr.AsDateTime = '!99/99/99;1;_' then
bunu kullanamazsın. Çünkü TField bir class'tır
diyebilirsin çünki Value Variant tipindedir.
kolay gele
Kod: Tümünü seç
table1ayri_tr.asdatetime:=null;
Kod: Tümünü seç
table1ayri_tr.Value := Null;
kolay gele
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!