delphi的这句代码有问题了怎样修改?
//函数IsSparetor用于判定一个字符是否为分隔符 function TForm1.IsSeparetor(ch: Char): Boolean; begin IsSeparetor:=False; if ch in [ ' ',', ', '. ', '? ',#13,#10] then //这句存在问题 IsSeparetor:= True ; end;
//函数IsSparetor用于判定一个字符是否为分隔符 function TForm1.IsSeparetor(ch: Char): Boolean; begin IsSeparetor:=False; if ch in [ ' ',', ', '. ', '? ',#13,#10] then //这句存在问题 IsSeparetor:= True ; end;
答案:你空格多了吧
我删了几个空格,变为:
if ch in [' ',',','.','?',#13,#10] then
不报错
其他:没有返回值
建议定义为Procedure IsSeparetor(ch Char) ; 你逗号要重新注释啊 何不全部用#表示呢
上一个:DELPHI编程时,如何快速复制一个窗体中的控件和控件所对应的事件代码到另一个窗体中?
下一个:DELPHI 写更新库存表时是用过程还是用触发器好,还是在delphi直接写SQL语句