Adicone no:
private
{ Private declarations }
qTempVENC: TDateTimeField;
depois no formcreate
with qTemp do begin
FieldDefs.Clear;
FieldDefs.Add('VENC', ftDateTime, 0, False);
CreateDataSet;
Close;
Open;
EmptyDataSet;
Close;
end;
qTempVENC := TDateTimeField.Create(qTemp);
qTempVENC.DisplayLabel := 'Vencimento';
qTempVENC.FieldName := 'VENC';
qTempVENC.DataSet := qTemp;
qTempVENC.FieldKind := fkData;
qTempVENC.DisplayFormat := 'dd/mm/yyyy';
qTempVENC.EditMask := '99/99/0000';
Espero ter ajudado
João
----- Original Message -----
From: Felipe Nunes - Yahoo
To: Felipe Nunes - Yahoo
Sent: Thursday, September 03, 2009 9:35 AM
Subject: [delphi-br] DisplayFormat
Bom dia Senhores
Estou criando um ClientDataSet em código, mas não estou conseguindo
encontrar onde informo o displayformat para o field.
Estou criando assim:
with cdsMaterial do
Begin
with FieldDefs do
begin
Clear;
With AddFieldDef do
Begin
Name := 'ESTOQUE_MININO';
DataType := FtInteger;
end;
With AddFieldDef do
Begin
Name := 'TOTAL';
DataType := FtFloat;
end;
end;
CreateDataSet;
end;
Já tentei colocar
cdsMaterial.Fields.Fields[i].displayFormat := '#,##0.0000';
cdsMaterial.Fields[i].displayFormat := '#,##0.0000';
cdsMaterial.FieldByName('Total').displayFormat := '#,##0.0000';
Mas nenhum sucesso. Alguem poderia me ajudar
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
