Jump to content
Fórum Script Brasil
  • 0

Somar Valores Ignorando R$


Cleverson Honório Gouvêa
 Share

Question

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!!!

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

  • 0
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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649k
×
×
  • Create New...