Delphi中的编辑框中有1000多个整数转换

在学习Delphi过程的startofamonth()函数,在这个函数的变量必须是整数,如下面的第二个句子。



1、xyear:= edit1.text; / / edit1.text代表一年。

2、startofamonth(strtoint(xyear),(我))



当运行程序,置文本使用上。控件,点击一次,自动添加一个值,默认值是1999,增加一个值,变成2000,然后变成2001。

当程序执行到strtoint(xyear)功能,是由一个错误,而总提示2001不是一个有效的整数值。

后来发现,如果手动输入是2001,那么程序就会顺利执行。看来,使用向上向下的理由不放弃上控件的使用。最后,StringReplace()的字符串处理函数来解决这个问题。

XYear:= stringreplace(xyear,' ',' ',{ rfreplaceall }); / / xyear字符串','取代空。

加上这句话的第一句话,就是后面,XYear给出一个值。