Fórum data em branco #333801

  instrucao = ´insert tabela (nome, end, data) values (´+edit1.text+´, ´+edi2.text+´, ´+dateToOracle(mskDtCorte.Text)+´)´

  mude para:
  instrucao = ´insert tabela (nome, end, data) values (´+edit1.text+´, ´+edi2.text+´<,valordata>)´
  if (mskDtCorte.Text = ´  /  /    ´) or (mskDtCorte.Text = ´´) then
  begin
    instrucao = stringreplace(instrucao,´,data´,´´,[rfReplaceAll]);
    instrucao = stringreplace(instrucao,´,valordata´,´´,[rfReplaceAll]);
  end
  else
    instrucao = stringreplace(instrucao,´,valordata´,datetoOracle(mskDtCorte.Text),[rfReplaceAll]);

  execute a instrucao

  instrucao = ´insert tabela (nome, end, data) values (:nome, :end, :data)´
  dataset.sql := instrucao;
  dataset.parambyname(´nome´).asstring := edit1.text;
  dataset.parambyname(´end´).asstring := edit2.text;
  if (mskDtCorte.Text = ´  /  /    ´) or (mskDtCorte.Text = ´´) then
    dataset.parambyname(´data´).value := null [b]ou[/b]
    dataset.parambyname(´data´).clear
  else
    dataset.parambyname(´data´).asdatetime := StrToDate(mskDtCorte.Text);

  ou simplesmente retire o parâmetro da instrução:
  instrucao = ´insert tabela (nome, end, data) values (:nome, :end, :data)´
  if (mskDtCorte.Text = ´  /  /    ´) or (mskDtCorte.Text = ´´) then
  begin
    instrucao :=  stringreplace(instrucao,´, :data´,´´,[rfReplaceAll]);
    instrucao :=  stringreplace(instrucao,´, data´,´´,[rfReplaceAll]);
  end;
  dataset.sql := instrucao;
  dataset.parambyname(´nome´).asstring := edit1.text;
  dataset.parambyname(´end´).asstring := edit2.text;
  if (mskDtCorte.Text <> ´  /  /    ´) and (mskDtCorte.Text <> ´´) then
    dataset.parambyname(´data´).asdatetime := StrToDate(mskDtCorte.Text);