掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.