Tmonth = (01,02,12);
->Tmonth = (a01,a02,a12);
http://www.truevcl.com
->Tmonth = (a01,a02,a12);
http://www.truevcl.com
解决方案 »
- Delphi7写了个程序,昨天还好的,今天在编译执行时出现Debugger exception'Property BCDToCurrency does not exist',有知道的吗?
- 请问如何打开word,excel文件?
- 复制.txt的文本粘贴到代码区,显示的是‘?’,急……
- 初学者的几个小问题
- 高分求解一数据库难题!解答后立即给分!
- 如何把字符串放进资源文件中
- 帮我看看为什么不能附值?
- 将EXCEL文件中图片导出, 并生成对应的文件名称?
- 关于数据库链接的问题!急!
- 我想访问局域网中另一台机器上的数据库,使用什么方法比较简便?
- 这个SQL语句怎么写,很着急的???
- 一个关于BATCHMOVE的低级问题,一定给分。
'01' : label1.caption:='12';
'02' : label1.caption:='01';
有错误,CASE只能使用有序的数据类型,即能够使用ORD()返回值的类型,例如INTEGER、CHAR等。
你可以修改程序如下:
case month of
1: label1.caption:='12';
2: label1.caption:='01';或着试一式:
case month of
StrToInt('01') : label1.caption:='12';
StrToInt('02') : label1.caption:='01';