delphi如何判断一字符串是不是合法网址？

Question

包括一些判断条件：比如开头的字符是“http”"ftp""www",或直接输入的就是IP地址，之类的，我在网上搜到了一个js的正则判断如下：
  function   isURL   (url)   {var   urlPattern   =   /^(?:(?:ftp|https?):\/\/)?(?:[a-z0-9](?:[-a-z0-9]*[a-z0-9])?\.)+(?:com|edu|biz|org|gov|int|info|mil|net|name|museum|coop|aero|[a-z][a-z])\b(?:\d+)?(?:\/[^;"'<>()\[\]{}\s\x7f-\xff]*(?:[.,?]+[^;"'<>()\[\]{}\s\x7f-\xff]+)*)?/;   
  return   urlPattern.test(url.toLowerCase());   
  }   
请问怎们在delphi中应用这个表达式呢？

Answer 1

使用正则表达式判断即可..使用方法，参考：http://dev.csdn.net/article/35436.shtm

Answer 2

开源的delphi正做表达式库 
http://www.regexpstudio.com/TRegExpr/TRegExpr.html

Answer 3

以上楼主都说完了,我有RegExpr.pas