前面加 check1 := 0 ;
试试看。

解决方案 »

  1.   

    在begin后面加吗?
    呵呵
    begin
    check1:=0;
    她都根本不执行这一句!
      

  2.   

    你的代码编译时一定有 Warning 吧?
    check1 被赋值,但 Never used ?
      

  3.   

    大哥:
    没有warning呀!
    一切顺利呀
    就是查不到它的值?
      

  4.   

    大哥:
    好像有warning呀![Hint] checku.pas(40): Value assigned to 'check1' never used
    那是为什么?
      

  5.   

    编译器认为 对 check1 赋值没有意义,因为后面没再引用过这个变量。
      

  6.   

    大哥:
       我是想用来判断字符串s和from字符串是否相等,相等就吧check1置成1
    不等就为0,同样字符串s和另外的字符串比较,来改变check2,check3,的值
    然后根据check1,2,3的值来决定返回值?
    请指教!
    谢谢!
      

  7.   

    错误提示是说check1的值没有被使有,所以调试时查看不到它的值。
    在check1:=compareText(s,from);之后
    使用一下check1的值,比如说
    if check1 = 0 then ....
    就可以查看到check1的值了
      

  8.   

    好像都不是吧
    我把所有代码都删了
    函数体里
    就剩一句符值语句
    也不行
    是不是delphi出了问题?