Null değerleri kontrol altına alma

Function uIsNull(pDeger, pNullDeger : Variant) : Variant;
Begin
  If VarIsNull(pDeger) Then
    Result := pNullDeger
  Else
    Result := pDeger;
End;


{Örneğin bir recordset içerisindeki herhangi bir alanın değeri bir değişkene atanıyor ise ve değişkenin o andaki değeri NULL olabilme ihtimali var ise programın atama hatası vermemesi için bu fonksiyon kullanılabilir.


 ebUnvan.Text := uIsNull(rsPersonel.Fields['UnvanAdi'].Value, 'Unvanı Yok');


//eğer  ünvan adı NULL ise ebUnvan.Text içerisine 'Unvanı Yok' değeri aktarılır.
  
 yas := uIsNull(rsDegerler.Fields['Yas'].Value, 0);
 
// eğer Yas değeri NULL ise yas değişkenine 0 aktarılır. 
  


}