解决方案 »

  1.   

    这看着像VB。赋值语句: ‘=’换成‘:=’,语句结尾加分号
    For语句不要next,要套上begin end;--- for I:=0 to ubound(fen) - 1 begin ........ end;
    字符串连接用‘+’而不是‘&’
    字符串用单引号括起来而不是双引号
    最后函数调用形式是MsgBox(lian);-----Delphi里没有MsgBox这个函数,应该是ShowMessage(lian);
      

  2.   

    完整源码在这里:
    http://bbs.anjian.com/thread-525930-1-1.html