Alana sıfır değer vermek

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

Alana sıfır değer vermek

Mesaj gönderen Fatih! »

Kod: Tümünü seç

    if (FieldByName('KDV').NewValue >= FieldByName('KDV').OldValue)  then
delphi içerisiden böyle bir karşılaştırma yapıyorum, ancak alan null olunca zonkluyor. null olmaması için sıfır atasamda sorgu sonucu değer sıfır olmasına karşın null olarak geliyor.

bir kere trigger kulanmayayım dedim başıma gelmeyen kalmadı :)

Sorunu nasıl aşabilirim acaba
Hakan Can
Üye
Mesajlar: 634
Kayıt: 04 Mar 2005 04:27
Konum: Ankara

Mesaj gönderen Hakan Can »

StrToFloatDef ve VarToStr kullanarak kontrol edin:

Kod: Tümünü seç

if StrToFloatDef(VarToStr(FieldByName('KDV').NewValue), 0) >= StrToFloatDef(VarToStr(FieldByName('KDV').OldValue), 0) then
İyi çalışmalar.
Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

Mesaj gönderen Fatih! »

Öncelikle teşekkürler.

Tek suçlu DisplayFormat çıktı.

Artık sıfırları kabul ediyor çok şükür :)
Cevapla