Re: [delphi-br] DisplayFormat

Thu, 03 Sep 2009 06:01:48 -0700 

Tente fazer um loop depois que já tiver criado tudo. Seria mais ou menos 
assim:

for i := 0 to ClientDataset.FieldCount-1 do
   if ClientDataset.Fields[i].DataType = ftFloat then
      (ClientDataset.Fields[i] as TFloatField).DisplayFormat := '#0.00'
   else if ClientDataset.Fields[i].DataType = ftCurrency then
      (ClientDataset.Fields[i] as ftCurrencyField).DisplayFormat := '#0.00'
   else if ClientDataset.Fields[i].DataType = ftBCD then
      (ClientDataset.Fields[i] as ftBCDField).DisplayFormat := '#0.00'
   else if ClientDataset.Fields[i].DataType = ftFMTBcd then
      (ClientDataset.Fields[i] as TftFMTBcdField).DisplayFormat := '#0.00'; 

__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/

Responder a