Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
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 ?
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
Esse Warning é só dizendo que você não inicializou a variável SOMA... nada demais... Ele vai funcionar certo...
Hugo, não...ele não funciona certo, da erro e fecha o programa ;)
marcussombra não entendi a sintaxe do seu código man...
marcussombra não funcionou!Modifiquei de várias formas, mas obtive o mesmo erro.De qualquer forma, obrigado pela ajuda!
Pessoal já consegui.Obrigado a ajuda de todos.
Poderia nos dizer qual solução arrumou para uma futura Busca?
Hugo, utilizei o RealEdit.Abraços.
Valeu Zuera... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
show, realmente o componente é muito bom e fácil de se usar...
Tenta assim:
{...}var soma: Double;begin soma:= soma + StrToFloat(EdBebidas.Text); soma:= soma + StrToFloat(Edfrios.Text); (...) Lsoma.Caption:= FormatFloat('#,###,##0.00', soma);end;{...}