前面加 check1 := 0 ;
试试看。
试试看。
解决方案 »
- D7调用存储过程:我用的SQLQUERY exec mypro @p1=:p1,@p2=:p2
- 请问如何设计关于控件群的数据结构(有点难度)
- 一个access自动编号的问题!
- 在线等,如何写一个登陆的程序?
- 是不是该升级显卡??
- 出售"反黄卫士"3.0源码! 有意者请联系[email protected] 网址:www.hrbec.com/fanhuang/index.htm
- 求购手机连锁店系统源代码或者代码交换!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- delphi的程序在线程里 怎么降低CPU占用?
- 如何打印报表的某几页!
- 我用SQL查询结果返回DBGRID时出现如下错误,是何原因如何解决?
- 关于sql数据库问题?100分
- 为何MDI子窗体放到DLL中,它的Active事件就无法响应,非得传Screen到DLL中才能解决?
呵呵
begin
check1:=0;
她都根本不执行这一句!
check1 被赋值,但 Never used ?
没有warning呀!
一切顺利呀
就是查不到它的值?
好像有warning呀![Hint] checku.pas(40): Value assigned to 'check1' never used
那是为什么?
我是想用来判断字符串s和from字符串是否相等,相等就吧check1置成1
不等就为0,同样字符串s和另外的字符串比较,来改变check2,check3,的值
然后根据check1,2,3的值来决定返回值?
请指教!
谢谢!
在check1:=compareText(s,from);之后
使用一下check1的值,比如说
if check1 = 0 then ....
就可以查看到check1的值了
我把所有代码都删了
函数体里
就剩一句符值语句
也不行
是不是delphi出了问题?