somando em tempo de execu��o

Question

Tenho 21 DBEdit�s, dos quais 20 recebem valores digitados pelo usu�rio, (n�o � obrigado preencher todos) e o vig�ssimo primeiro deve mostrar o resultado da soma logo ap�s o usu�rio digit�-los (em temp...

Robinhocne · Answer

d� para vc fazer essa soma no onexit do penultimo dbedit, pois assim que o usuario passar por ele ai vc coloca para o resultado aparecer no 21� DbEdit.

ou no onenter do 21�DbEdit para fazer a soma!

Eniorm · Answer

vamos supor que temos apenas 5 dbedits (para facilitar o c�digo)

no evento OnExit do �ltimo eu implemento algo deste tipo

DBEdit5.Field.AsFloat := 
  DBEdit1.Field.AsFloat +
  DBEdit2.Field.AsFloat +
  DBEdit3.Field.AsFloat +
  DBEdit4.Field.AsFloat;

Com isso, ao ser disparado o evento OnExit do �ltimo dbedit (DBEdit5) ser� feito as somas....
E para melhorar, eu seleciono os 4 primeiros dbedits (1, 2, 3 e 4), e associo o evento OnExit de cada dbedit, com o evento OnExit do DBEdit5

assim, a implementa��o deste evento ser� refletida para todos os 5 dbedits

abra�os

Boavida · Answer

tudo bem, mas vamos considerar que nao � obrigat�rio o preenchimento de todos os DBEdit�s, esse seu c�digo dar� certo??...

Facc · Answer

[quote:0576a35ce4=�boavida�]tudo bem, mas vamos considerar que nao � obrigat�rio o preenchimento de todos os DBEdit�s, esse seu c�digo dar� certo??[/quote:0576a35ce4]Realmente, se ele deixar algum Edit em branco vai dar erro de null is not a float value... acredito que para isso ter� que fazer uma verifica��o em todos os edits antes da soma, caso esteja em branco, jogar 0 (zero)...

Eniorm · Answer

ent�o vamos ajustar....[code:1:cb28cf3898]if ((Sender as TDBEdit).Field.IsNull) then  (Sender as TDBEdit).Field.AsFloat := 0;// restante do c�digo[/code:1:cb28cf3898]...

Diegotiemann · Answer

Eu faria assim:[code:1:a54dcf83dc]var SOMA:Inteiro;;;considerando que aceite somente inteirosbeginfor I := 0 to ComponentCount - 1 do   if Components&#91;I&93; is TEdit then     if TEdit(Components&91;I&93;).Text<>�� then         SOMA:=SOMA+StrToInt(TEdit(Components&91;I&93;).Text); //ai � so atribuir o valor da v�rivel onde oc� querend;[/code:1:a54dcf83dc]...

Boavida · Answer

Seu c�digo parece legal, mas onde coloco ele? desde j� obrigado...

Emerson Nascimento · Answer

[quote:d9383a009e=�Enio Marconcini�]vamos supor que temos apenas 5 dbedits (para facilitar o c�digo)

no evento OnExit do �ltimo eu implemento algo deste tipo

DBEdit5.Field.AsFloat := 
  DBEdit1.Field.AsFloat +
  DBEdit2.Field.AsFloat +
  DBEdit3.Field.AsFloat +
  DBEdit4.Field.AsFloat;

Com isso, ao ser disparado o evento OnExit do �ltimo dbedit (DBEdit5) ser� feito as somas....
E para melhorar, eu seleciono os 4 primeiros dbedits (1, 2, 3 e 4), e associo o evento OnExit de cada dbedit, com o evento OnExit do DBEdit5

assim, a implementa��o deste evento ser� refletida para todos os 5 dbedits

abra�os[/quote:d9383a009e]
essa � a melhor sugest�o. e pode ficar tranquilo que n�o dar� erro se algum campo estiver vazio, visto que o asFloat j� resolve isso: se estiver vazio, retorna 0 (zero).

Boavida · Answer

Amig�o deu certo... muito obrigado...

Misterzire · Answer

Tente Aggregates Fields . Que � um tipo de campo calculado  que s�o utilizados para realizar calculos automaticos em tempo de execu��o ....

F�rum somando em tempo de execu��o #364937