在线帮忙！！！！分5000

绝非倒分！我没用过delphi，希望有朋友帮我。帮我看看
http://teacher.100point.com/users/teacher/major/mysite/cifa.htm
这个源代码能运行吗？结果是怎么样的。
给500分
绝不食言

解决方案 »

  1.   

    buff:string;
      ch:char;
      mystr:String;
      before_ch:Char;
      beginmystr:String;
      myNum:Integer;
      i,j:Integer;
      len:Integer;
    还有好几个begin没有加上end,代码的结构不规范
      

  2.   

    不是我写的。我不懂delphi
    有朋友肯帮我改吗
      

  3.   

    建议你将它们运行一下,就知道什么功能了,不过先声明一下变量,将BEGIN与END匹配一下......界面上放什么控件,取什么名字不要咱说了吧,何况有流程图及代码,很好的学习机会哦:)
      

  4.   

    to   hch_d(城城) 你有源代码？能发给我吗
    [email protected]
      

  5.   

    能寄源代码给我的 就可以拿分
    [email protected]
      

  6.   

    已发过来了,查收,是D5的哦!
    里面有一个'查表是否保留字'的find_lable函数你要自已写哦
      

  7.   

    源代码在unit1.pas中,你用记事本看看就行了....程序可运行