Campo numeric(15,2) não da DisplayFormat no Delphi 2005
Boa noite, pessoal!!!
Tenho uma tabela com um campo chamado VALOR que é NUMERIC (15,2). Estou tentando colocar um DisplayFormat neste campo e quando eu rodo a aplicação, não está dando o Diplay que eu quero. Estou fazendo assim no campo no TField:
Na propriedade EditFormat = #,0.00
Na propriedade DisplayFormat = ,0.00
Estou usando Delphi 2005, Interbase e DBExpress.
Cristiano
Tenho uma tabela com um campo chamado VALOR que é NUMERIC (15,2). Estou tentando colocar um DisplayFormat neste campo e quando eu rodo a aplicação, não está dando o Diplay que eu quero. Estou fazendo assim no campo no TField:
Na propriedade EditFormat = #,0.00
Na propriedade DisplayFormat = ,0.00
Estou usando Delphi 2005, Interbase e DBExpress.
Cristiano
Cristianojedi
Curtidas 0
Respostas
Cristianojedi
23/08/2005
Alguém pode me ajudar???
Cristiano
Cristiano
GOSTEI 0
Kenio_c
23/08/2005
cristiano, me explique melhor onde vc quer que sai formatado, em um grid, label, dblabel, . . .
GOSTEI 0
Cristianojedi
23/08/2005
Olá!
Amigo,
Quero que saia formatado em dbEdit, em dbGrid e nos meus relatórios que foram feitos utilizando Rave.
Desde já, agradeço!
Cristiano
Amigo,
Quero que saia formatado em dbEdit, em dbGrid e nos meus relatórios que foram feitos utilizando Rave.
Desde já, agradeço!
Cristiano
GOSTEI 0
Cristianojedi
23/08/2005
Alguém mais pode me ajudar?
Obrigado!
Cristiano
Obrigado!
Cristiano
GOSTEI 0
Cristianojedi
23/08/2005
Poxa, niguém me ajuda!!! :(
GOSTEI 0
Hugofab
23/08/2005
cristianojedi,
Ola amigo isto e um bug do Delphi 2005 com Firebird, procurei em meus arquivos e não encontrei, mas pode pesquisar no forum que você vai achar a solução. Busque Delphi 2005
Espero ter ajudado
Hugo Fabrício
Ola amigo isto e um bug do Delphi 2005 com Firebird, procurei em meus arquivos e não encontrei, mas pode pesquisar no forum que você vai achar a solução. Busque Delphi 2005
Espero ter ajudado
Hugo Fabrício
GOSTEI 0
Hugofab
23/08/2005
achei da uma olhada:
function FormatBcd(const Format: string; Bcd: TBcd): string;
var
Valor: Double;
begin
Valor := BCDToDouble(Bcd);
Result := FormatFloat(Format, Valor);
(*
if IsBcdNegative(Bcd) then
Result := FormatOneBcd(GetFormat(Format, sectionNegative), Bcd)
else if IsBcdZero(Bcd) then
Result := FormatOneBcd(GetFormat(Format, sectionZero), Bcd)
else
Result := FormatOneBcd(GetFormat(Format, sectionPositive), Bcd);
*)
end;
Faça a alteração em cima de uma cópia do FMTBcd.pas colocando no mesmo diretório dos fontes do seu projeto ou em diretório configurado no Library Path que fique antes do $(BDS)\lib. Depois dê Build.
Hugo Fabrício
function FormatBcd(const Format: string; Bcd: TBcd): string;
var
Valor: Double;
begin
Valor := BCDToDouble(Bcd);
Result := FormatFloat(Format, Valor);
(*
if IsBcdNegative(Bcd) then
Result := FormatOneBcd(GetFormat(Format, sectionNegative), Bcd)
else if IsBcdZero(Bcd) then
Result := FormatOneBcd(GetFormat(Format, sectionZero), Bcd)
else
Result := FormatOneBcd(GetFormat(Format, sectionPositive), Bcd);
*)
end;
Faça a alteração em cima de uma cópia do FMTBcd.pas colocando no mesmo diretório dos fontes do seu projeto ou em diretório configurado no Library Path que fique antes do $(BDS)\lib. Depois dê Build.
Hugo Fabrício
GOSTEI 0
Cristianojedi
23/08/2005
Ok, Hugofab... Vou procurar.
Se eu achar eu coloco aqui para o pessoal.
obrigado!!!
Cristiano
Se eu achar eu coloco aqui para o pessoal.
obrigado!!!
Cristiano
GOSTEI 0
Cristianojedi
23/08/2005
Amigo Hugofab,
Eu fiz do jeito que você colocou na resposta ai e não deu certo.
Você testou? Funcionou?
Cristiano
Eu fiz do jeito que você colocou na resposta ai e não deu certo.
Você testou? Funcionou?
Cristiano
GOSTEI 0
Cristianojedi
23/08/2005
Pode ser a versão do Interbase (6.5) que eu estou usando que está dando incompatibilidade com o Delphi 2005.
Vou testar uma versão mais nova.
Qualquer coisa, eu fala depois...
Cristiano
Vou testar uma versão mais nova.
Qualquer coisa, eu fala depois...
Cristiano
GOSTEI 0