Fórum Como passar a soma de uma variavel{componente FatExpression} #341661

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, FatExpression, StdCtrls, Buttons; type TForm1 = class(TForm) FatExpression1: TFatExpression; BitBtn1: TBitBtn; Label1: TLabel; edt: TEdit; procedure BitBtn1Click(Sender: TObject); procedure FatExpression1Variable(Sender: TObject; Variable: String; var Value: Double; var Done: Boolean); procedure FatExpression1Evaluate(Sender: TObject; Eval: String; Args: array of Double; ArgCount: Integer; var Value: Double; var Done: Boolean); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); begin [b:6d3210194f] [color=red:6d3210194f]//FatExpression1.Text := ´add([s])+(edt.text))´; //-nao funciona[/color:6d3210194f] [color=blue:6d3210194f]//FatExpression1.Text := edt.text; //-- funciona FatExpression1.Text := ´add(1;1;1;+1+3)´; //--funciona[/color:6d3210194f] label1.caption := floattostr(FatExpression1.Value); [/b:6d3210194f] end; [b:6d3210194f][color=green:6d3210194f]{quero passar esse 380.00 como variavel + o que esta no edit (edt)}[/color:6d3210194f][/b:6d3210194f] procedure TForm1.FatExpression1Variable(Sender: TObject; Variable: String; var Value: Double; var Done: Boolean); begin Variable := UpperCase(Variable); if Variable = ´s´ then //variavel s {de salario} Value := 380.00; Done := True; end; [b:6d3210194f]Essa procedure aqui em marrom nao tem nada haver, eh somente testes[/b:6d3210194f] [color=maroon:6d3210194f]procedure TForm1.FatExpression1Evaluate(Sender: TObject; Eval: String; Args: array of Double; ArgCount: Integer; var Value: Double; var Done: Boolean); var I: Integer; begin if UpperCase(Eval) = ´ADD´ then for I := 0 to ArgCount - 1 do Value := Value + Args[I]; end;[/color:6d3210194f] end.