Soma de Valores
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
Curtidas 0
Respostas
Macario
20/01/2004
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]GOSTEI 0
Facc
20/01/2004
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:
GOSTEI 0