Inserindo Data Em Tabela Dbase Iv

[Gafanhoto]

Sou bem novato em Delphi. Acho que o erro que tá dando é simples de ser resolvido pra vocês, mas eu já estou há um tempão tentando resolver, mas não consigo.

Eu tava inserindo dados normalmente em uma tabela Paradox.

Agora mudei minha base de dados pra dBaseIV, pra testar, afinal to aprendendo.

Usei um TMaskEdit, com a máscara de data.

Na hora de inserir to fazendo assim:

DM1.tb_juizes.FieldByName('DATANASC').AsString := edDataNasc.Text;

Sendo que edDataNasc é o nome do TMaskEdit que eu estou usando.

Na hora de inserir tá dando o erro: ' / / ' is not a valid date.

Preciso muito da ajuda de vocês. :(

[Gafanhoto]

Bah galera... preciso quye pelo menos vocês me digam como inserir, ou os métodos que vocês usam para inserir datas ok?

To apavorado!!!!!!! :o :o

[Gafanhoto]

Olha só galera! Descobri o que tá acontecendo!

Ele não passa quando a data tá em branco!

Como eu faço para cadastrar uma data nula???

[Micheus]

acho que uma maneira simples de você resolver o problema para este seu caso (' / / ' is not a valid date.) seria utilizar:

...
  if Length(Trim(edDataNasc.Text)) > 4 then  // se estiver em branco, o Trim resultará em '/  /'
  try
  // se o campo DATANASC for do tipo string em sua tabela, você vai precisar remover o 
  // comentário da linha abaixo (StrToDate), pois o MaskEdit não valida datas e aceita qualquer coisa.
  // Porém ser o campo DATANASC for do tipo data, a atribuição automaticamente resultará 
  // na conversão de string para data, de modo que se text for inválido haverá uma exceção
  //  StrToDate(edDataNasc.Text);
    DM1.tb_juizes.FieldByName('DATANASC').AsString := edDataNasc.Text;
  except
  // havendo erro, o foco é colocado no MaskEdit e uma mensagem é dada a usuário
  // através de ShowMessage
    edDataNasc.SetFocus;  
    ShowMessage('Data inválida!'#10' Digite novamente.');
  //  Porém, se quizer emitir a mensagem utilizando o diálogo padão para excessões, remova as 
  //  duas linhas acima e retire os colchetes que estão comentando o código abaixo
{
    on E:EConvertError do
    begin
      edDataNasc.SetFocus;
      E.Message := 'Data inválida!'#10' Digite novamente.';
      raise;
    end else
      raise;  
}
  end;
...

[]s