soma 1.10 + 0.15 {resolvido}

[janazi 0]

Pessoal, preciso somar 2 campos, mas os valores estão com '.' ou seja 1.10, daí eu tenho que acrescer ou diminuir o que o usuário digitar num edit ex: 1.10 + 0.10

 

 

valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[bastard2003 4]

Usa isso aqui:

 

Edit3.Text :=  floattostr(strtofloat(Edit1.Text) + strtofloat(Edit2.Text));

PS: pode usar uma função pra trocar o caracter.. pq se for usar com '.'(ponto) vai dar pau.. tem que ser ','(virgula)

 

Testa ai.. qualquer coisa tamo ai!

[bastard2003 4]

dai rapaz... a função ta aqui:

function TForm1.substituir(asubstituir, substituto: char; dado: string): string;var  cont: integer;begin  for cont:= 1 to Length(dado) do	if dado[cont] = asubstituir then	  dado[cont]:= substituto;  Result:= dado;end;

e pra chamar tu faz assim(exemplo no clic de um botão):

 

procedure TForm1.Button1Click(Sender: TObject);var	str1, str2: string;beginstr1 := substituir('.',',',edit1.Text);str2 := substituir('.',',',edit2.Text);Edit3.Text := floattostr(strtofloat(str1) + strtofloat(str2));end;

abraços... espero ter ajudado!

[janazi 0]

Valeu cara!!! resolveu aqui!!!