Fórum Soma de Valores #207721
20/01/2004
0
Sou novato no Delphi e eu preciso fazer com que a soma de valores de 2 componentes DBEdits sejam somados e exibidos em outro DBEdit. Exemplo:
Valor DBEdit1 + Valor DBEdit2 = Valor DBEdit3
É para somar valores digitados nos 2 primeiros campos e aparecer automaticamente ao 3º campo com a soma pronta.
Se alguém puder me ajudar eu agradeço!
Wagner
Valor DBEdit1 + Valor DBEdit2 = Valor DBEdit3
É para somar valores digitados nos 2 primeiros campos e aparecer automaticamente ao 3º campo com a soma pronta.
Se alguém puder me ajudar eu agradeço!
Wagner
Wagnerddm
Curtir tópico
+ 0
Responder
Posts
20/01/2004
Macario
Fica assim
Somando numeros inteiros (integer)
[color=green:3f6ba79909]
Este é para numeros decimais (float)
[color=brown:3f6ba79909]
Somando numeros inteiros (integer)
[color=green:3f6ba79909]
procedure TForm1.Edit2Exit(Sender: TObject);
var iNumero: integer;
begin
iNumero := (StrToInt(Edit1.text) + StrToInt(Edit2.text));
Edit3.Text := IntToStr(iNumero);
end;
[/color:3f6ba79909]Este é para numeros decimais (float)
[color=brown:3f6ba79909]
procedure TForm1.Edit2Exit(Sender: TObject);
var iNumero: Double;
begin
iNumero := (StrToFloat(Edit1.text) + StrToFloat(Edit2.text));
Edit3.Text := FloatToStr(iNumero);
end;
[/color:3f6ba79909]
Responder
Gostei + 0
20/01/2004
Facc
Vc está usando banco de dados?
Faça isso
DBEdit3.Value := DBEdit1.Value + DBEdit2.Value
Espero ter ajudado
:evil: :twisted: :shock:
Faça isso
DBEdit3.Value := DBEdit1.Value + DBEdit2.Value
Espero ter ajudado
:evil: :twisted: :shock:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)