library CalcExps;uses
ShareMem,
SysUtils,
Classes,
ExPars;{$R *.RES}function CalcExpars(pwsExp:pwidechar):pwidechar; stdcall; //
var srel:string;
ExprParser: TExParser;
tsExp:tstringlist;
pya:pbytearray;
i:integer;
strExp:string;
begin
strExp:=WideCharToString(pwsExp);
if strExp='abc' then
result:='abc is true'
else
result:='abc is false';
end;
exports
CalcExpars;
begin
end.
ShareMem,
SysUtils,
Classes,
ExPars;{$R *.RES}function CalcExpars(pwsExp:pwidechar):pwidechar; stdcall; //
var srel:string;
ExprParser: TExParser;
tsExp:tstringlist;
pya:pbytearray;
i:integer;
strExp:string;
begin
strExp:=WideCharToString(pwsExp);
if strExp='abc' then
result:='abc is true'
else
result:='abc is false';
end;
exports
CalcExpars;
begin
end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货