Field - tratamento de campos nulos

// tratamento de campos nulos numa grid

procedure TForm1.Table1DataGetText(Sender: TField; var Text: string; DisplayText: boolean);

begin

  if Sender.IsNull then

    Text := 'NULO!'

  else

    Text := Sender.asString; 

end;

procedure TForm1.Table1DataSetText(Sender: TField; const Text: string);

begin

  if Text = '' then

    Sender.Clear

  else

    Sender.AsString := Text;

end;