ActiveDelphi

cps.art · Enviada: Sáb Mai 25, 2013 10:20 pm Assunto: CAMPO DATA VAZIO - COMO INSERIR

Uso o DBase com o Delphi 6 e a dificuldade é deixar um CAMPO DATA VAZIO, que continha uma data válida.
Exemplo:
Campo: DataValid (tipo date DD/MM/AAAA).
Quando é cumprido o compromisso, esse campo precisa ficar sem data, ou seja, vazio (__/___/____).
Dá erro de conversão quando uso:

MaskEdit1.Text := '__/__/____'

Dados.FieldValues['DataValid'] := StrToDate(MaskEdit1.Text)

Alguma dica ?

cyberdisk · Enviada: Sáb Mai 25, 2013 10:25 pm Assunto:

veja em

http://webcache.googleusercontent.com/search?q=cache:88jqIp6WIysJ:http://www.devmedia.com.br/forum/verificar-se-um-componente-maskedit-esta-vazio/272640%2Bmaskedit+nulo+delphi&hl=pt&gbv=2&ct=clnk

ou

http://www.activedelphi.com.br/forum/viewtopic.php?t=55052&sid=393cfc5a9863d1cdc210557c104bfe5c

abraço
_________________
O conhecimento abre muitas portas

cps.art · Enviada: Sáb Mai 25, 2013 10:48 pm Assunto:

Obrigado CyberDisk, mas não é nada disso que eu preciso.
Meu problema não é com o MaskEdit, é tentar alterar um Campo Date, que está com uma data válida (31/12/2012) e deixar esse campo sem data nenhuma (__/__/____).

cyberdisk · Enviada: Sáb Mai 25, 2013 10:54 pm Assunto:

basta limpar o campo data antes de salvar

exemplo

cps.art · Enviada: Dom Mai 26, 2013 12:00 am Assunto:

Como uso o banco de dados do DBASE, resolvi da seguinte forma:
O nome do BD é Dados.dbf.
Numa MaskEdit (MEData) com máscara 99/99/9999;1;_ entro com uma data válida ou deixo vazia (__/__/____).
Se essa MaskEdit contiver uma data válida, ela será gravada com a propriedade "Dados.FieldValues['DATAPESQ'] := MEData.Text;"
e se estiver vazia será gravada uma data em branco com a procedure "Dados.FieldPut('DATAPESQ', MEData.Text);"

//código
Dados.Edit;
try
Dados.FieldValues['DATAPESQ'] := MEData.Text;
except
Dados.FieldPut('DATAPESQ', MEData.Text);
end;
Dados.Post;
///////////

Obrigado pela atenção.

RESOLVIDO