Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) como realizar somas e subtração


Arrais Júnior

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0
eu andei procurando, achei umas calculadoras, mais não onsegui intender como funcionava,,

tipo, eu queri somar um edit1, com um edit 2, os dois edit's são número e tals, apertar num botão e o resulta ficar no edit1

vlws :)

Se o número que você usar nos edits forem inteiros, então você pode usar as conversões abaixo:

var x : integer;

...

x := strtoint(edit1.text) + strtoint(edit2.text);

edit1.text := inttostr(x);

Se o número for ponto flutuante, então as conversões são estas:

var x : double;

...

x := strtofloat(edit1.text) + strtofloat(edit2.text);

edit1.text := floattostr(x);

Não use "," (virgula) para ponto flutuante. use "." (ponto).

Link para o comentário
Compartilhar em outros sites

  • 0

mais uma dica no floattostr(x) ele remove o 0 se for por exemplo 30,00 ficando apenas 30.

você pode por assim FormatFloat('###,##0.00',X); ele lhe retornara 30,00 ou coloque o R$ na frente do primeiro #. mais só ah um problema nisso você não podera recalcular o numero formatado a não ser que se retire o formato, isso é mais usado na construcao de relatorios. beleza.

Link para o comentário
Compartilhar em outros sites

  • 0

Olá Arrais Junior,

Os códigos mostrados pelo companheiros devem ser colocados no OnClick do botão que você usará para calcular os valores dos dois edit's.

Tipo:

Como mencionado pelo Denis Courcy, para somar valores inteiros no Onclick do botão coloque:

var x : integer;
...
x := strtoint(edit1.text) + strtoint(edit2.text);
edit1.text := inttostr(x);
Se os valores não forem inteiros:
var x : double;
...
x := strtofloat(edit1.text) + strtofloat(edit2.text);
edit1.text := floattostr(x);
Não use "," (virgula) para ponto flutuante. use "." (ponto). Esse código irá somar o valor do Edit1 com o valor do Edit2 e depois irá mostrar a soma no Edit1. E como o amigo Eder Moraes mencionou se o resultado de conter virgulas então coloque assim:
FormatFloat('###,##0.00',X);
Logo o código para somar números inteiros do evento OnClick do botão ficará assim:
procedure TForm1.Button1Click(Sender: TObject);
Var X : Integer;
begin
x := strtoint(edit1.text) + strtoint(edit2.text);
edit1.text := inttostr(x);
end;

Se caso for subtração apenas substitua o sinal para de + para -.

Abraços

Editado por Vivendo&Aprendendo
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...