Setando Currency para um Field via Código.

Delphi

05/02/2005

Olá amigos,

Não trabalho com todos os campos no ClientDataSet então preciso setar algumas configurações do campo via código.

Por exemplo, preciso colocar meu Campo ´Valor´ do Tipo ´Currency´ porém via código, pois em tempo de Designer não existe esse campo.

Como poderia fazer isso?

Obrigado

Abraços.

Yalle Cunha.


Yallebr

Yallebr

Curtidas 0

Respostas

Bon Jovi

Bon Jovi

05/02/2005

ex.: 

procedure TForm1.SetCurrency(Field: TField);
begin
  if not Assigned(Field) then
    Exit;
  if Field is TFloatField then
    TFloatField(Field).currency := True
  else if Field is TCurrencyField then
    TCurrencyField(Field).currency := True
  else if Field is TBCDField then
    TBCDField(Field).currency := True
  {$IFNDEF VER130}
  else if Field is TFMTBCDField then
    TFMTBCDField(Field).currency := True
  {$ENDIF};
end;

procedure TForm1.ClientDataSet1AfterOpen(DataSet: TDataSet);
begin
  SetCurrency(DataSet.FieldByName(´CAMPO´));
end;



GOSTEI 0
Yallebr

Yallebr

05/02/2005

Obrigado amigo,


Vou testar.

Abraços

Yalle Cunha.
yalle@brtecno.com


GOSTEI 0
POSTAR