超级快速 “表达式编译类” 源代码！！！

housisong 2003-01-03 06:54:45

这是最新的“表达式编译类”，又作了很多优化改进，速度和功能进一步提升，而且更易使用！（完全可以和VC、Delphi等高级语言编译的相媲美，甚至快得多！！！）

下载地址：（或者在回复里留下你的邮箱地址）
数学函数动态编译器TCompile类
http://www.playicq.com/dispdoc.php?t=27&id=2613
复数函数动态编译器TCompileComplex类
http://www.playicq.com/dispdoc.php?t=27&id=2614

有改进意见或发现任何错误请转告我,本人不胜感激。
E-Mail:HouSisong@263.net
( 转载时请保留本说明:) )

TCompile类简介：
数学函数动态编译器TCompile类作者:侯思松
(包括数学函数和定积分函数)
<<功能简介>>:
TCompile可以在程序运行过程中动态完成数学函数表达式字符串的编译执行,
(可以带参数,可以和高级语言共享变量，支持定积分;动态生成机器码执行,不是解释执行)执行速度超快!!!TCompileComplex类简介：
复数函数动态编译器TCompileComplex类
<<功能简介>>:
TCompileComplex可以在程序运行过程中动态完成复数函数表达式字符串的
编译执行,(可以带复数参数;可以和高级语言共享复数变量，动态生成机器码执行,不是解释执行)执行速度超快!!

...全文

100 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

ly_liuyang 2003-01-24

打赏
举报

不妨也看看，看看跟别人的有何不同
ly_liuyang_ly@21cn.com
Thx

ly_liuyang 2003-01-24

打赏
举报

搞那个干什么？你可知道IFPS 3？
InnerFuse Pascal Script 3？强大的Pascal脚本解释组件
可以在RunTime中直接使用部分Delphi代码！
网上可以下载，Free的Open Source，很强大的
Innerfuse Pascal Script 3 (short IFPS3) is a script engine written in Delphi. IFPS3 allowes you to use parts of Object Pascal language within your Delphi projects at runtime. It's a set of units that can be compiled into your exe file so there is no need to distribute any external files. IFPS3 compiles first and allows to execute the script later.
例如
Program IFSTest;
// compile the demo application, minimize delphi and run this.
function FindWindow(C1, C2: PChar): Longint; external 'FindWindowA@user32.dll stdcall';
function ShowWindow(hWnd, nCmdShow: Longint): Integer; external 'ShowWindow@user32.dll stdcall';
function SetWindowText(hWnd: Longint; Text: PChar): Longint; external 'SetWindowTextA@user32.dll stdcall';
var
i: Longint;
wnd: Longint;
Begin
wnd := Findwindow('', 'Innerfuse Pascal Script III');
SetWindowText(Wnd, 'This is DLL demo, it calls some windows user32 routines. This will hide this window for a few seconds');
for i := 0 to 200000 do begin end;
ShowWindow(Wnd, 0); // hide it
for i := 0 to 200000 do begin end;
SetWindowText(Wnd, 'Wasn''t that nice?');
ShowWindow(Wnd, 5); // show it
for i := 0 to 200000 do begin end;
SetWindowText(Wnd, 'Innerfuse Pascal Script III');
End.都可以呀