ao somar valores...

[ZueRa 0]

Pessoal, estou com uma dúvida ao somar certos valores contidos nos Edit's.Bom, para explicar resumidamente é assim: o valor 200 é inserido no Edit1 e no Edit2 600 e ao clicar no botão OK queria que ele me retornasse "800", ou seja, o valor da soma.Vejam o código:

procedure TForm1.BtsomaClick(Sender: TObject);varsoma:string;begin soma := 'Edbebidas.Text' + 'Edfrios.Text' + 'Edcongelados.Text' + 'Edacougue.Text' + 'Edmassas.Text' + 'Edhortifruti.Text' + 'Edpadaria.Text' + 'Edcereais.Text' + 'Edlimpeza.Text' + 'Edfrente.Text' + 'Edpetshop.Text' + 'Edoleos.Text' + 'Edmatinais.Text' + 'Eddoces.Text' + 'Edconservas.Text' + 'Edperfumaria.Text' + 'Edbiscoito.Text' + 'Edutilidades.Text' + 'Eddieteticos.Text' + 'Edleite.Text'; Lsoma.Caption := StrtoInt(soma);end;

o que há de errado aí ?Obrigado.

[Rodrigo Miss 1]

Tenta assim:

 

{...}var soma: Double;begin  soma:= soma + StrToFloat(EdBebidas.Text); soma:= soma + StrToFloat(Edfrios.Text); (...)  Lsoma.Caption:= FormatFloat('#,###,##0.00', soma);end;{...}

[ZueRa 0]

Amigo, agora no momento de compilar aparece isso como erro:

 

[Warning] Uprincipal.pas(76): Variable 'soma' might not have been initialized

 

o que poderá ser ?

[marcussombra 1]

function somar (valor, valorr : String): Doublevarresultado : double;beginresultado := (StrToFloat(valor) + StrToFloat(valorr));result resultado;end;Para usar bota assim:somar(edit1.Text, edit2.Text, );n testei.. mas axo q funciona ;D

[Hugo Slepicka 0]

Esse Warning é só dizendo que você não inicializou a variável SOMA... nada demais... Ele vai funcionar certo...

[ZueRa 0]

Hugo, não...ele não funciona certo, da erro e fecha o programa ;)

[marcio.theis 3]

Outra forma que poderia fazer é usar o componente RealEdit, nele consegue a formatação e pode somar tudo e atribuir diretamente para uma variável do tipo double mesmo, sem precisar converter... Pode ver mais neste post.

[ZueRa 0]

marcussombra não entendi a sintaxe do seu código man...

[ZueRa 0]

marcussombra não funcionou!Modifiquei de várias formas, mas obtive o mesmo erro.De qualquer forma, obrigado pela ajuda!

[ZueRa 0]

Pessoal já consegui.Obrigado a ajuda de todos.

[Hugo Slepicka 0]

Poderia nos dizer qual solução arrumou para uma futura Busca?

[ZueRa 0]

Hugo, utilizei o RealEdit.Abraços.

[Hugo Slepicka 0]

Valeu Zuera... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

show, realmente o componente é muito bom e fácil de se usar...