tEdit y campos NOT NULL

[pablonill]

Bueno, estuve investigando y esto es lo mas fino que pude lograr.

Código Delphi [-]
function EsVacio(Cadena: string): variant;
begin
  if Trim(Cadena)='' then
    EsVacio := NULL
  else
    EsVacio := Cadena;
end;

y lo llamo asi

Código Delphi [-]
SqlQuery1.Close;
  SqlQuery1.SQL.Clear;
  SqlQuery1.SQL.Add('INSERT INTO Temp (Detalle)  VALUES (:Pr1)');
  SqlQuery1.ParamByName('Pr1').Value := EsVacio(Edit1.Text);
  SqlQuery1.ExecSQL();

Gracias por su tiempo y espero que esto le pueda servir para alguien.