求教:IsDate类似功能函数

以前用VB时可以方便使用IsDate来判断是否当前字符串是日期格式字符串，但在DELPHI中竟没有这样的函数。办法是有一个：  
  {*******************************************************************************  
  *函数名:IsDate                                                                                                                                   *  
  *函数机能:判断是否是有效日期                                                                                                       *  
  *******************************************************************************}  
  function   TXDate.IsDate(strText:String):   Boolean;  
  var  
      strOldDateSeparator:   string;  
      strOldShortDateFormat:   string;  
      strOldLongDateFormat:   string;  
  begin  
      result   :=   True;  
   
      DateSeparator   :=   '/';  
      ShortDateFormat   :=   'yyyy/m/d';  
      LongDateFormat   :=   'yyyy/mm/dd';  
   
      try  
          StrToDate(strText);  
      except  
          on   EConvertError   do  
              result   :=   False;  
      end;  
  end;  
   
  但觉得有点烦，不知有更好的办法没，谢谢！  
  同样，判断是否是金额也有同样的问题，VB中有IsNumeric()，DELPHI中没有，也只有采用相同方法来实现吗？ 问题点数：20、回复次数：7Top

1 楼ChinaBlueArmy（中国蓝军）回复于 2001-09-29 12:26:24 得分 0

是没有更好的方法了么.  
  Top

2 楼ChinaBlueArmy（中国蓝军）回复于 2001-09-29 19:46:42 得分 0

UpTop

3 楼agui（阿贵: 高级图形用户界面）回复于 2001-09-29 20:33:30 得分 0

据我所知，没有现成的。Top

4 楼dancemaple（枫之舞）回复于 2001-09-29 20:41:48 得分 10

用EncodeDate试试，如果不成功，产生异常Top

5 楼guipei（IMRAD(QQ:88598744)）回复于 2001-09-29 20:44:09 得分 10

  is   函数api里都是，自己查吧。你不会觉得delphi   调用api比vb麻烦吧。   Top

6 楼ChinaBlueArmy（中国蓝军）回复于 2001-09-30 12:14:38 得分 0

UP  
  终于有人罗Top

7 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-10-01 19:34:15 得分 0

TryStrToDate()Top

相关问题

• 函数
• isdate
• 判断是否

• 帖主：ChinaBlueArmy
• dancemaple
• guipei

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载