如何判断字符串前四位是正确的年度?谢谢!
解决方案 »
- 求教 4字节BYTE数组 和 INTEGER变量 的 直接转换(类似于 COPYMEMORY函数)。
- 存储过程参数问题
- 处女贴 没分 大家帮个忙啊 idhttp的分块下载问题
- 请教,关于多编程所需注意的问题!!谢谢!!
- 实数类型的表示方式问题?
- 如何向一个文本文件增加数据,不要说要先把文件读到TStrings哦.
- 怎样知道自己的程序被CTRL+ALT+DEL结束,并在此之前调用函数
- 求助:SPCOMM在做蓝牙串口的时候出现了问题。
- 如何判断Memo控件的内容是否为空?初学者的菜问题,先来先领分。
- l_jia()近来领分8
- 使用vclskin后窗体不能最大化的问题
- DBchart的问题,大家帮我想想办法
方法二:根据你自己的情况,将字符串前四位子串copy出,然后在try except 中通过strtoint等方法进行判断。
showmessage('正确年度')
csY : string;
Year : word;
begin
csY := Copy( DateStr, 1, 4 );
Year:= StrToIntDef( csY, 0 );
if year = 0 then exit; //error