Como Somar valor convertido em moeda no edit

Question

Estou com uma grande d�vida, gostaria de saber se poderiam me ajudar.tenho um formul�rio que contem 3 edit, 2 para serem somados e 1 para receber o valor calculado, mas os valores que eu quero que cal...

Antseralves · Answer

Veja no WINDOWS/Painel De Controle/Configura��es regionais,
como est� configurado a op��o de ponto decimal. Se estiver como
�.� (ponto) ent�o vai dar erro. Deve-se configurar para �,�(v�rgula).

AntSer
=====

Marco Salles · Answer

Acho que este problema � Classico , vito que o Conteudo Do Edits a serem somados , tem caracters

quando eu clicko para somar ele da um erro dizendo: �... R$ 10,00� it�s not a valid floating point value�

Voce deve eliminar os caracteres Tipo esta fun��o abaixo

function RetornaValor(texto:String):Real;
var
 i:integer;
 TextoAux:String;
begin
i:=1;
while i<= Length(Texto) do
 begin
    if (texto[i] in [�0�..�9�])or(Texto[i]=DecimalSeparator) Then
      textoAux:=TextoAux+Texto[i];
    i:=i+1;
 end;
result:=strtoFloat(TextoAux);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:Real;
begin
 a:=RetornaValor(Edit1.Text);
 b:=RetornaValor(Edit2.Text);
 c:=a+b;
 Edit3.text:=format(��m�,[c]); //no evendo (OnExit) do edit

end;

Talves isto lhe sirva

Snake_300kbps · Answer

vlw galera, a dica funcionou...

F�rum Como Somar valor convertido em moeda no edit #283500