Executar Formula

Question

Tenho uma tabela que existe um campo chamado calculo que tem uma formula exemplo 10 * V + 100

Ai eu vou substituir o valor V por algo exemplo 2,10
Ai estou precisando de alguma fun��o que execute 10 * 2,10 + 100
Que vai dar 121

Existe alguma fun��o que fa�a isso?

Paulo · Answer

N�o entendi bem, mas veja se � isto?[quote:f24f1b33c3]function calcula(v: Double):Double;begin  Result := 10*v+100end;como usarProcedure TForm1.btncalculaClick(Sender: TObject);var n: Double;begin  n := StrToFloat(Edit1.Text);  Edit2.Text :=FormatFloat(�0.00�, Calcula(n));end;[/quote:f24f1b33c3]...

Cesar_gualberto · Answer

O que voc� precisa � de um interpretador.

Existe um componente chamado �JvInterpreterProgram� que pertence a JVCL.

A JVCL tem diversos componentes totalmente gratuitos. Eles podem ser baixados
aqui: http://jvcl.sourceforge.net

Abaixo temos um exemplo de uma string repassada para o interpretador que calcula o resultado.

procedure TForm1.Button1Click(Sender: TObject);
begin
JvInterpreterProgram1.Pas.Text := �10 * 2.10 + 100�;
JvInterpreterProgram1.Run;
ShowMessage(JvInterpreterProgram1.VResult);
end;

Rud� · Answer

Cesar,� isso mesmo que eu queria.Muito obrigado por sua ajuda....

Marco Salles · Answer

pode tb pela simplicidade da express�o usar a fun��o abaixo :

var
posIni,PosFim:integer;
 s:string;
 v,r,a,b,c:double;
begin
  s:=�10 * V + 100�;
  v:=2.1;
  s:=StringReplace(S,�V�,floattostr(v), [rfReplaceAll]);
  posIni:=pos(�*�,s);
  a:=strtofloat(trim(copy(S,1,posini-1)));
  posFim:=Pos(�+�,s);
  c:=StrtoFloat(trim(copy(s,posfim+1,length(s)-posFim)));
  r:=a*v+c;
  showmessage(floattostr(r));
end;

ps : [b:40491c6434]note que o resultado �r� � um double[/b:40491c6434]

[u:40491c6434]o excesso de vari�vei � somente para tornar mais did�tico...[/u:40491c6434]

Rud� · Answer

Marco,Mas n�o � sempre a mesma formulaPode existir no banco de dados mais de 1000 tipo diferentes de formulas....

Marco Salles · Answer

[quote:e5f035c843]Marco, Mas n�o � sempre a mesma formula Pode existir no banco de dados mais de 1000 tipo diferentes de formulas.[/quote:e5f035c843]eu pensei que fosse somente uma unica formula , ande o parametro a ser alterado seria o �V� ...da para fazer , mas da um trabalho e tanto . Alem do mais o problema ja foi solucionado[quote:e5f035c843]Existe um componente chamado �JvInterpreterProgram� que pertence a JVCL. [/quote:e5f035c843]ent�o vamos deixar como esta beleza......

F�rum Executar Formula #357341