Delphi 2009 BUG

2008-09-09 05:33:24 206 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

FunASR与FreeSWITCH融合实战：从零构建高精度语音质检系统本文详细介绍了如何将FunASR与FreeSWITCH融合，构建高精度语音质检系统。通过实时语音听写技术，结合热词定制和多模型切换，实现客服中心等场景的自动化质检，显著提升识别准确率和效率。系统架构涵盖音频采集、识别处理和业务应用三层，支持负载均衡和性能优化，适用于工业级部署。阅读详情

输入123，输出壹佰贰拾叁元整
在D7中可以，很好用，但D2009输出乱七八糟，那位高人可以分析下哪儿的问题？！
-------------------------------------------------------------------------
function toChineseCapitalMoney(const Num:double):string;
const
mnUnit:string='分角元';
hzUnit:string='拾佰仟万拾佰仟亿拾佰仟万拾佰仟';
hzNum:string='零壹贰叁肆伍陆柒捌玖';
var
szChMoney,szNum:string;
iLen, iNum, iAddZero,i:integer;
function DRound(Value:double;cnt:byte):double;
var
fTmp:double;
nTmp:double;
k:int64;
begin
Result:=Value;
if cnt>18 then exit;
nTmp:=Power(10.0,cnt);
fTmp:=0.5;
fTmp:=fTmp/nTmp;
Result:=fTmp+Result;
Result:=Result*nTmp;
k:=0;
asm
fld qword ptr Result
//__ftol begin
push ebp
mov ebp,esp
LEA ESP,k
wait
fstcw word ptr [ebp-$04]
wait
mov al,[ebp-$03]
or [ebp-$04],$00000c01
fldcw word ptr [ebp-$04]
fistp qword ptr [ebp-$0c]
mov [ebp-$03],al
fldcw word ptr [ebp-$04]
mov eax ,[ebp-$0c]
mov edx,[ebp-$08]
mov esp,ebp
pop ebp
//__ftol end
push esp
lea esp,k
mov [esp],eax
add esp,4
mov [esp],edx
mov esp,ebp
pop esp
fild qword ptr k
fstp qword ptr Result
fld qword ptr nTmp
fdivr qword ptr Result
fstp qword ptr Result
end;
end;
begin
iAddZero:=0;
szNum:=FormatFloat('0', DRound(Num,2)*100.0); //这样可能会有数字误差，double只有15位有效数字,这里只有13
Result:='';
iLen:=Length(szNum);
if Pos('E',UpperCase(szNum))>0 then exit;
if (iLen>18) or (iLen=0) or (Num<0) then exit; //数据错误返回

for i:=1 to iLen do
begin
iNum:=StrToInt(copy(szNum,i,1));
if iNum=0 then
begin
if (((iLen-i-2) mod 4)=0) and ((iLen-i-3)>0) and (((iLen-i)>=8) or (iAddZero<3)) then
szChMoney:=copy(szChMoney+hzUnit,((iLen-i-3) mod 8)*2+1,2);
inc(iAddZero);
end
else
begin
if ((iAddZero>0) and ((iLen-i)>=2)) and (((iLen-i-1) mod 4)<>0) then
szChMoney:=szChMoney+copy(hzNum,1,2);
szChMoney:=szChMoney+copy(hzNum,iNum*2+1,2);
iAddZero:=0;
end;
if (iAddZero<1) or ((iLen-i)=2) then
if (iLen-i)>=3 then
begin
szChMoney:=szChMoney+copy(hzUnit,((iLen-i-3) mod 8)*2+1,2);
end
else
szChMoney:=szChMoney+copy(mnUnit,((iLen-i) mod 3)*2+1,2);
end;
if Trim(szChMoney)='' then
szChMoney:='零元整'
else
if copy(szNum,Length(szNum),1)='0' then szChMoney:=szChMoney+'整';
Result:=szChMoney;
end;
------------------------

...全文

最佳量化交易的计算机操作系统本文在Creative Commons许可证下发布　　我经常被问到的一个问题是：用哪种计算机操作系统和计算软件进行量化交易的理论研究和代码实现？　　我想把这个问题简化，从挑选的计算软件和计算库来反推最佳使用的计算机操作系统。简而言之，就是在本文撰写的时候而言，如果你想进行基于任何严肃的数学理论和金融量化交易研究理论，这里特指机器学习或者深度学习。并且需要在本地研究机器上使用桌面版本，... 阅读详情

apan_bj

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

ly_liuyang 2008-09-09

打赏
举报

还用汇编干啥?String是Unicode的~汇编不好操作的

mygodsos 2008-09-09

打赏
举报

牛，还汇编的

zwjchina 2008-09-09

打赏
举报

没仔细看逻辑，主要修改了字符串的处理。
简单验证了下是对的，你自己测试看看。



function toChineseCapitalMoney(const Num:double):string;

const

  mnUnit:string='分角元';

  hzUnit:string='拾佰仟万拾佰仟亿拾佰仟万拾佰仟';

  hzNum:string='零壹贰叁肆伍陆柒捌玖';

var

  szChMoney,szNum:string;

  iLen, iNum, iAddZero,i:integer;

  function DRound(Value:double;cnt:byte):double;

  var

      fTmp:double;

      nTmp:double;

      k:int64;

  begin

      Result:=Value;

      if cnt>18 then exit;

      nTmp := Power(10.0,cnt);

      fTmp:=0.5;

      fTmp:=fTmp/nTmp;

      Result:=fTmp+Result;

      Result:=Result*nTmp;

      k:=0;

      asm

        fld qword ptr Result

        //__ftol begin

        push ebp

        mov ebp,esp

        LEA ESP,k

        wait

        fstcw word ptr [ebp-$04]

        wait

        mov al,[ebp-$03]

        or [ebp-$04],$00000c01

        fldcw word ptr [ebp-$04]

        fistp qword ptr [ebp-$0c]

        mov [ebp-$03],al

        fldcw word ptr [ebp-$04]

        mov eax ,[ebp-$0c]

        mov edx,[ebp-$08]

        mov esp,ebp

        pop ebp

        //__ftol end

        push esp

        lea esp,k

        mov [esp],eax

        add esp,4

        mov [esp],edx

        mov esp,ebp

        pop esp

        fild qword ptr k

        fstp qword ptr Result

        fld qword ptr nTmp

        fdivr qword ptr Result

        fstp qword ptr Result

      end;

  end;

begin

  iAddZero:=0;

  szNum:=FormatFloat('0', DRound(Num,2)*100.0); //这样可能会有数字误差，double只有15位有效数字,这里只有13

  Result:='';

  iLen:=Length(szNum);

  if Pos('E',UpperCase(szNum))>0  then exit;

  if (iLen>18) or (iLen=0) or (Num <0) then exit; //数据错误返回



  for i:=1 to iLen do

  begin

      iNum:=StrToInt(copy(szNum,i,1));

      if iNum=0 then

      begin

        if (((iLen-i-2) mod 4)=0) and ((iLen-i-3)>0) and (((iLen-i)>=8) or (iAddZero <3)) then

        begin

            szChMoney := szChMoney + hzUnit;

            szChMoney := szChMoney[(ilen - i - 3) mod 8 + 1];

        end;

        inc(iAddZero);

      end

      else

      begin

        if ((iAddZero>0) and ((iLen-i)>=2)) and (((iLen-i-1) mod 4) <>0) then

            szChMoney := szChMoney + hzNum[1];

        szChMoney:=szChMoney + hzNum[iNum + 1];

        iAddZero:=0;

      end;

      if (iAddZero <1) or ((iLen-i)=2) then

        if (iLen-i)>=3 then

        begin

            szChMoney := szChMoney + hzUnit[(ilen - i - 3) mod 8 + 1];

            //szChMoney:=szChMoney+copy(hzUnit,(((iLen-i-3) mod 8)*2+1), 2);

        end

      else

      begin

        szChMoney := szChMoney + mnUnit[(iLen-i) mod 3 + 1];

        //copy(mnUnit,((iLen-i) mod 3)*2+1,2);

      end;

  end;

  if Trim(szChMoney)=''  then

      szChMoney:='零元整'

  else

    if szNum[Length(szNum)]='0' then szChMoney:=szChMoney+'整';

  Result:=szChMoney;

end;

Rainstorey 2008-09-09

打赏
举报

本来想仔细看看，但看这标题我也就不看了。

Delphi 2009 BUG

相关推荐