Data Source ignorando valores na edição, como resolver?

SQL Server

Delphi

Automação Comercial

15/12/2015

Boa Noite Galera

Tenho um data source e ele ignora alguns caracteres inseridos em tempo de edição. No exemplo abaixo na condição para status aberto aparece no grid certinho, já quando vai na Condição de fechado aparece da seguinte forma : "Fe h do", este não é um campo calculado.

if sStatus = 'A' then
DM.cltChFilhoSTATUS.EditMask := 'Aberto';
if sStatus = 'F' then
DM.cltChFilhoSTATUS.EditMask := 'Fechado';

Outro que tentei é assim:

DM.cltChFilho.Edit;
if sStatus = 'A' then
DM.cltChFilhoSTATUS.Value := 'Aberto';
if sStatus = 'F' then
DM.cltChFilhoSTATUS.Value := 'Fechado';

Outro caso é com um campo calculado onde eu jogo a data formatada, este campo é do tipo string por causa da formatação brasileira dd/mm/aaaa hh:mm porém ele ignora todos os zeros existentes na data

Outra maneira que eu tentei foi:

if sStatus = 'A' then
DBGrid1.Columns[6].Field.Value := 'Aberto';
if sStatus = 'F' then
DBGrid1.Columns[6].Field.Value := 'Fechado';


DBGrid1.Columns[9].Field.Value := '15/12/2015 18:28';

Mas desta ultima maneira nem aparece o valor no grid

Alguém pode me ajudar?
Djeison Silva

Djeison Silva

Curtidas 0
POSTAR