daha detaylı sorayım

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Nry
Üye
Mesajlar: 8
Kayıt: 04 Tem 2003 10:07

daha detaylı sorayım

Mesaj gönderen Nry »

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.
Kullanıcı avatarı
lazio
Moderator
Mesajlar: 1526
Kayıt: 11 Tem 2003 04:55
Konum: İstanbul

Mesaj gönderen lazio »

Merhaba,
Yanlış anlamadıysam..

if not (MaskEdit1.Text = ' . . ') then
table1Tarih.Value := StrToDateTime(MaskEdit1.Text);

olması gerekiyor. bu arada tarihi alanının tipinin date olduğunu varsayıyorum..
kolay gelsin..
Resim

..::|YeşilMavi|::..
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

kodda bir yazım hatası yapmışsın. dikkat edilmesi gereken bir durum. derlerken hata vermez fakat

Kod: Tümünü seç

  if table1ayri_tr = '!99/99/99;1;_' then 
yerine

Kod: Tümünü seç

  if table1ayri_tr.AsDateTime = '!99/99/99;1;_' then 
yazmalısın.
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Mesaj gönderen freeman35 »

bunu kullanamazsın. Çünkü TField bir class'tır

Kod: Tümünü seç

table1ayri_tr.asdatetime:=null;

Kod: Tümünü seç

table1ayri_tr.Value := Null;
diyebilirsin çünki Value Variant tipindedir.

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 !!!
Cevapla