Matematiksel İşlem

[apachi2006]

(19-03-2022, Saat: 23:03)frmman Adlı Kullanıcıdan Alıntı:

(19-03-2022, Saat: 19:19)apachi2006 Adlı Kullanıcıdan Alıntı: Math sınıfı ekli olmasına rağmen pas dosyasında  94:Stack[0] := Power(Stack[1], Stack[0]);// Power  bu satırda hata veriyor.
Kullanımı konusunda bilgi verebilir misiniz?

---

Şu şekilde kullanabilirsiniz.

uses
 MathExpParser;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 xx: TExpressionParser;
 sonuc: double;
 denklem: string;
 x, y: integer;
begin

 xx := TExpressionParser.Create();

 denklem := 'X+Y+5';

 x := 30;
 y := 50;
 denklem := StringReplace(denklem, 'X', x.ToString, [rfReplaceAll, rfIgnoreCase]);
 denklem := StringReplace(denklem, 'Y', y.ToString, [rfReplaceAll, rfIgnoreCase]);

 sonuc := xx.ParseExpressionToFloat(denklem);
 edit1.Text := denklem;  // 30+50+5
 edit2.Text := sonuc.ToString; // sonuç 85

 xx.Free;
end;

Teşekkürler