SOMA DBedit com Edit Delphi

Delphi

Firebird

28/12/2018

Bom dia, estou com um problema na soma de um DBEdit com um Edit que está me tirando o sono rsrs...
Sou novato no Delphi, por isso a dúvida que me parece ser "besta"
Acontece o seguinte, o DBEdit puxa as informações do banco, já o edit, está fazendo algumas somas.
ex:
Dbedit1 = 100 (resultado do banco)
Dbedit2 = 150 (Resultado do banco)
Edit1 = 250 (Soma dos dois Edits)
DBedit3 = 50 (Resultado do banco)
Edit2 = 300 (Edit1+DBEdit3)

Já tentei de várias maneiras, e até agora nada, ele compila certinho, mas na hora de funcionar não rola.
Estou utilizando banco Firebird, Delphi7
Meus componentes são IBdatabase, IBtrans, IBQuery

segue os códigos:
- Para fazer a soma do Edit1 (Esse funciona):
var SomaSIA :Real;
ValorSIA: Double;
begin
Soma:=DbEdit1.Field.AsFloat+DbEdit2.Field.AsFloat;
Edit1.Text:= floattostr(soma);
Valor:= StrtoCurr(Edit1.Text);
Edit1.Text:= FormatFloat('R$ #,0.00',(Valor));
end;


- Para fazer a soma do Edit2 (Aqui está o erro)
var num1,num2, num3:real;
teste: double;
begin
num1:=(Dbedit3.Field.AsFloat);
num2:= StrtoFLoat(edit1.text);
num3:= (num1-num2);
edit2.Text:=FloatToStr(num3);
Teste:=StrtoCURR(Edit2.Text);
Edit2.Text:= FormatFloat('R$ #,0.00',(teste));
Giovani Mendes

Giovani Mendes

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

28/12/2018

-------------
soma do edit1
-------------
var
  Soma: float;
begin
  Soma := DbEdit1.Field.AsFloat + DbEdit2.Field.AsFloat;
  Edit1.Text := FormatFloat('R$ #,0.00', Soma);
end;


-------------
soma do edit2
-------------
var
  Soma: float;
begin
  Soma := DbEdit1.Field.AsFloat + DbEdit2.Field.AsFloat + Dbedit3.Field.AsFloat;
  Edit2.Text := FormatFloat('R$ #,0.00', Soma);
end;

GOSTEI 0
Giovani Mendes

Giovani Mendes

28/12/2018

Na soma do Edit2, estou tentando fazer o edit1+dbedit3.
Outra coisa, essa variável soma do tipo float, mas nao foi reconhecida no delphi7 "Undeclared identifier: 'float'".
Tentei ela como double, mas nao sei fazer somas de edits com dbedits :(


soma do edit2
-------------
var
  Soma: float;
begin
  Soma := DbEdit1.Field.AsFloat + DbEdit2.Field.AsFloat + Dbedit3.Field.AsFloat;
  Edit2.Text := FormatFloat('R$ #,0.00', Soma);
end;



GOSTEI 0
Giovani Mendes

Giovani Mendes

28/12/2018

Seguinte!!
Resolução do Post

-------------
 var:SomaEdit, SomaDBedit : Double
begin
SomaEdit:=DbEdit1.Field.AsFloat+DbEdit2.Field.AsFloat
Edit1.Text:= FormatFloat('R$ #,0.00',(SomaEdit)); // Soma do DbEdit1+DbEdit2

SomaDBEdit:=SomaEdit-(Dbedit3.Field.AsFloat); //Soma do DBedit3+Edit1
Edit2.Text:=FormatFloat('R$ #,0.00',(SomaDBEdit));

end;



GOSTEI 0
POSTAR