Convers�o de Campo Currency para String

Question

Ol�.... Preciso converter um determinado valor existente em um DbEdit  de string (R$ .......) para currency. Preciso pegar esse valor e compar�-lo com um valor do tipo real. Acontece que quando tendo ...

Jairroberto · Answer

Ol�!Voc� n�o deve comparar o texto do DBEdit, convertido para Currency, pois voc� teria que eliminar os separadores de milhar e outros sinais que comp�em a m�scara de exibi��o do campo. Em vez disso use o valor do campo (DataField) que o DBEdit representa, que deve ser do tipo TCurrencyField ou TFloatField. Veja um exemplo:if Table1CampoCurrency.AsCurrency > 0 then  ShowMessage(�O valor � maior que zero!�);Um abra�o,Jair...

Gilsonlongo · Answer

Bom dia Jair,Estou com problema nos campos edit e dibedit e mesmo mvalor (R$), tentei usar alguns formatos para mostrar ao usu�rio, mas quando o valor ultrapassa a casa do milhar d� erro �N�o � Ponto Flutuante�. Ser� que tens alguma maneira de resolver o problema, isto �, apresentar valores em R$ e poder trabalhar com eles com vari�veis sem erro...Fico-lhe grato,[quote:644d9bb01b=�JairRoberto�]Ol�!Voc� n�o deve comparar o texto do DBEdit, convertido para Currency, pois voc� teria que eliminar os separadores de milhar e outros sinais que comp�em a m�scara de exibi��o do campo. Em vez disso use o valor do campo (DataField) que o DBEdit representa, que deve ser do tipo TCurrencyField ou TFloatField. Veja um exemplo:if Table1CampoCurrency.AsCurrency > 0 then  ShowMessage(�O valor � maior que zero!�);Um abra�o,Jair[/quote:644d9bb01b]...

Jairroberto · Answer

Ol�, �gilsonlongo�!Ao usar DBEdit, vale a resposta que eu dei anteriormente. Se voc� usar MaskEdit, ou digitar separadores (de milhares e decimal) em um Edit, ter� que eliminar os separadores de milhares e substituir o separador decimal digitado pelo separador decimal indicado na configura��o do Windows, o que pode ser acessado atrav�s da vari�vel global DecimalSeparator. Veja um exemplo:[code:1:d468ffade2]var  s: string;  c: Currency;begin  // Remove os separadores de milhares  s := StringReplace(Edit1.Text, �.�, ��, &#91;rfReplaceAll&93;);  // Substitui o separador decimal  s := StringReplace(s, �,�, DecimalSeparator, &91;&93;);  // Atribui a string v�lida a uma vari�vel Currency  c := StrToCurr(s);end;[/code:1:d468ffade2]Um abra�o,Jair...

Gilsonlongo · Answer

Grande Jair,Vou testar sua fun��o.Atualmente estou testando, -> Assim,procedure TFCRDUP33.EditVALORTOTKeyPress(Sender: TObject; var Key: Char);beginif Key in [�,�,�.�] then Key := DecimalSeparator;end;Obridado e um abra�o....

Jairroberto · Answer

Ol�, amigo!A forma utilizada por voc� deve funcionar corretamente.Um abra�o,Jair...

F�rum Convers�o de Campo Currency para String #169696