Somar no delphi
estou usando dbedit para adicionar valores em R$ (moeda) ao bando de dados.
para funcionar o ´R$ ,00´, usei o seguinte:
dbedit1.text:=format(´¬m´,[bdedit1.text)]);
so que quando converte para moeda, da erro ao somar os valores covertidos, ex:
dbedt_total.text:=inttostr(strtoint(dbedit1.Text)+strtoint(dbedt2.text)
alguem poderia me ajudar nisso?, sou novo aqui e no delphi.
para funcionar o ´R$ ,00´, usei o seguinte:
dbedit1.text:=format(´¬m´,[bdedit1.text)]);
so que quando converte para moeda, da erro ao somar os valores covertidos, ex:
dbedt_total.text:=inttostr(strtoint(dbedit1.Text)+strtoint(dbedt2.text)
alguem poderia me ajudar nisso?, sou novo aqui e no delphi.
Snake_300kbps
Curtidas 0
Respostas
Nilsonoliveiratec
29/05/2005
Usa essa função, ela extrai todo char q nao for numerico
Talvez possa te ajudar
Function ExtraiNum(S:string):String;
var
i :integer; texto,aux :string;
begin
If S = ´´ then
S := ´0´ ;
texto := S ;
For i := 1 to Length(Texto) do
if (Texto[i] in[´0´..´9´,´,´]) then
aux := aux+ copy(Texto,i,1);
ExtraiNum := Aux;
end;
Talvez possa te ajudar
Function ExtraiNum(S:string):String;
var
i :integer; texto,aux :string;
begin
If S = ´´ then
S := ´0´ ;
texto := S ;
For i := 1 to Length(Texto) do
if (Texto[i] in[´0´..´9´,´,´]) then
aux := aux+ copy(Texto,i,1);
ExtraiNum := Aux;
end;
GOSTEI 0