比如我想判某字串的格式是 1.) 1999-3-5 2.) 1999-03-05 以上2种都要满足
A Apeng Unregistered / Unconfirmed GUEST, unregistred user! 1999-06-25 #1 比如我想判某字串的格式是 1.) 1999-3-5 2.) 1999-03-05 以上2种都要满足
F fx Unregistered / Unconfirmed GUEST, unregistred user! 1999-06-25 #2 Format; FormatDateTime; 看看help吧！
柳 柳五公子 Unregistered / Unconfirmed GUEST, unregistred user! 1999-06-25 #3 对于1，格式如下： label1.caption :=FormatDateTime('yyyy-m-d',now); 对于2，格式如下： label2.caption :=FormatDateTime('yyyy-mm-dd',now);
对于1，格式如下： label1.caption :=FormatDateTime('yyyy-m-d',now); 对于2，格式如下： label2.caption :=FormatDateTime('yyyy-mm-dd',now);
A Apeng Unregistered / Unconfirmed GUEST, unregistred user! 1999-06-25 #4 好象不太对,如上我想要的不是转换字符串,而是判断,重新描述一下: 现有字串A和格式B,想要A符合格式B,那我能否作 1.定义格式B 2.判断,A符合B否 用format能吗
Z zx Unregistered / Unconfirmed GUEST, unregistred user! 1999-06-25 #6 我觉得大家好象理解错了！ 可以这么做： 用length和pos和copy取每一位字符，然后 看他是否满足条件，（数字，还是‘-’。） 自己写函数吧，很简单！ 就用这几个函数就行了！ 没时间写了，对不起！
我觉得大家好象理解错了！ 可以这么做： 用length和pos和copy取每一位字符，然后 看他是否满足条件，（数字，还是‘-’。） 自己写函数吧，很简单！ 就用这几个函数就行了！ 没时间写了，对不起！
W wgzhang Unregistered / Unconfirmed GUEST, unregistred user! 1999-06-25 #7 var D:TDate; D:=StrToDate(1999-3-5); if FormatDatetime('yyyy-mm-dd',D)='1999-03-05' then begin ...... end;
var D:TDate; D:=StrToDate(1999-3-5); if FormatDatetime('yyyy-mm-dd',D)='1999-03-05' then begin ...... end;
X xixi Unregistered / Unconfirmed GUEST, unregistred user! 1999-06-25 #8 function Test(str: String): Boolean; begin DateSeparator := '-'; LongDateFormat := 'YYYY-MM-DD'; ShortDateFormat := 'YYYY-MM-DD'; try StrToDate(str); except Result := False; end; Result := True; end;
function Test(str: String): Boolean; begin DateSeparator := '-'; LongDateFormat := 'YYYY-MM-DD'; ShortDateFormat := 'YYYY-MM-DD'; try StrToDate(str); except Result := False; end; Result := True; end;
A Apeng Unregistered / Unconfirmed GUEST, unregistred user! 1999-06-29 #10 其实我是想知道Delphi里是否有比较通用的格式定义及判断函数,如此看来是没有什么更好的办法了 :< 就我目前的问题,xixi给了很好的解决方法(其中有点小错误哟),zx给10分鼓励 各位不会嫌少把 :>
其实我是想知道Delphi里是否有比较通用的格式定义及判断函数,如此看来是没有什么更好的办法了 :< 就我目前的问题,xixi给了很好的解决方法(其中有点小错误哟),zx给10分鼓励 各位不会嫌少把 :>
