GARANTIR DESCONTO

Fórum Calculos #264849

11/01/2005

0

Pessoal me ajudem. Presciso efetuar o seguinte cálculo:

Resultado := StrToInt(ADODataSet1.FieldByName(´Calculo´).Value);

Onde -> Calculo é um campo de uma tabela e contêm:
( Valor1 + Valor2 ) * 2

Presciso que o Delphi reconheça o conteúdo do campo Calculo e efetue o cálculo. No antigo Clipper utilizávamos o &Calculo.


Grato


Paulo Sergio

Paulo Sergio

Responder

Posts

11/01/2005

Inutaishou

Não sei se entendi bem, mas acho que é só usar um campo calculado...

Da um duplo-clique na tabela... New Field, e cria Calculated... Agora, vai no evento OnCalcFields da Tabela, e adiciona os calculos... Exemplo:
Tabela.FieldByName( ´CampoCalculado´ ).AsFloat := Valor1 + Valor2;


Verifique se a propriedade AutoCalcFields está true... Pronto... Seu novo campo está funncionando! :wink:

[]´s,


Responder

Gostei + 0

11/01/2005

Massuda

Sugiro que você dê uma olhada no componente TFatExpression ([url=http://www.torry.net/pages.php?id=307]link no Torry[/url], freeware com fonte).

Esse componente é capaz de parsear uma string contendo uma expressão do tipo ´1+2*3/4´ e retornar o valor correspondente. Adicionalmente, o componente suporta expressões com variáveis e funções definidas pelo usuário. Tanto as variáveis como as funções do usuário são tratadas, repectivamente, através dos eventos OnVariable e OnEvaluate.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar