Delphiで使えるスクリプト言語は？ (ID:151364)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 EXCEL入っているならEXCELオブジェクトに計算させる。 EXCELで使える関数は何でも使えるのが利点。 --- uses ComObj　は要るかも。。 var ExcelApp, WorkSheet: Variant; //-------------- function CalculateFormula(AFormula: string): Variant; begin WorkSheet.Cells[1, 1].Formula := AFormula; Result := WorkSheet.Cells[1, 1].Value; end; procedure TForm1.Button1Click(Sender: TObject); var res: Variant; begin res := CalculateFormula('=2*ln(2.718281828)+pi()/2 + Fact(10)'); Memo1.Lines.Add(res); end; procedure TForm1.FormCreate(Sender: TObject); begin ExcelApp := CreateOLEObject('Excel.Application'); ExcelApp.DisplayAlerts := False; ExcelApp.WorkBooks.Add; WorkSheet := ExcelApp.ActiveWorkBook.ActiveSheet; end; procedure TForm1.FormDestroy(Sender: TObject); begin ExcelApp.Quit; end;