Somar Dbedit

[lkm]

Como faço para somar vários DBEdit que estão em formato de moeda ($) em Delphi 5

[Arlon]

Atribua os textos dos DBEdits à variáveis normalmente, por exemplo:

procedure TForm1.BtnSomarClick(Sender: TObject);

var

v1, v2, v3, v4 : integer; // o número de "v" é proporcional ao número de DBEdits

begin

v1 := StrToInt(DBEdit1.Text);

v2 := StrToInt(DBEdit2.Text);

v3 := StrToInt(DBEdit3.Text);

DBEdit4.Text := IntToStr(v1 + v2 + v3);

end;

end.

Qualquer problema, poste de novo ae, falou.

[lkm]

OK, isso funcionou mas somente a números inteiros, porém eu já estou utilizando em estilo de moeda (R$ 10,00) e aí não funcionou.

[urujr]

Neste caso tenta somar diretamente da base de dados:

var

v1,v2,v3:double:

begin

v1:=0

v2:=0

v3:=0

v1:=table1.nome.asfloat;

v2:=table1.nome1.asfloat;

v3:=table1.nome2.asfloat;

table1.nome4.asfloat:=v1+v2+v3;

[lkm]

Obrigado a todos que me ajudaram nesse tópico. Valeu !!!!!!!!