Somar Valores Ignorando R$

[Cleverson Honório Gouvêa]

Pessoal, eu quero colocar no evento OnEnter do meu edit um código que some o valor do Edit1 e do Edit2 e me dê o resultado, porém ele precisa Ignorar o 'R$' que está na frente do campo, nos dois primeiros digitos!!! Como eu faço isso???

Ex:.

Se eu tiver R$ 70,00 e R$ 40,00 quero que o Edit3 receba a soma com o R$ "R$110,00"

Entenderam!?

Se tiver como subtrair de outro edit chamado desconto também é bom!!!

valeu!!!

[Churc]

opa

você pode filtrar o conteúdo do Edit pra somente números e vírgulas...

exemplo

type
  TChars = set of Char;

function FilterChars(const S: string; const ValidChars: TChars): string;
var
  I: integer;
begin
  Result := '';
  for I := 1 to Length(S) do
  if S[I] in ValidChars then
  Result := Result + S[I];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  iA, iB, iTotal: Real;
begin
  try
    iA := StrToFloat(FilterChars(Edit1.Text, ['0'..'9',',']));
  except
    iA := 0;
  end;
  try
    iB := StrToFloat(FilterChars(Edit2.Text, ['0'..'9',',']));
  except
    iB := 0;
  end;
  iTotal := iA + iB;
  Edit3.text := 'R$ ' + Formatfloat('###,###,##0.00', iTotal);
end;

abraço

[Cleverson Honório Gouvêa]

vlw, vou ver se dá aqui, só que eu quero filtrar " R$ " !!!

[Churc]

vlw, vou ver se dá aqui, só que eu quero filtrar " R$ " !!!

então deste jeito que te passei está filtrando, pra testar, coloque 3 edits no seu form e um botão, no edit1 coloque o texto R$ 40,00 e no edit2 coloque R$ 70,00 ou qualquer valor, e coloca o código do botão no OnClick do botão e ao clicar no botão ele vai somar os campos e jogar o resultado no Edit3...

abraço

[Cleverson Honório Gouvêa]

Funcionou perfeitamente aqui, muito obrigado meu Brother!