Delphi 检验指定字符串网址是否输入正确

本文整理自网络，侵删。

 //如：http://www.delphitop.com/

function CheckUrl(const sUrl:string):Boolean;
var
  bl :Boolean;
begin
  Result := False;
  bl := Pos('http://www.',LowerCase(sUrl))>0;
  bl := bl or (Pos('.delphitop.',LowerCase(sUrl))>0);
  if not bl then
  begin
    MessageBox(0, 'URL地址配置不正确！请检查后重试！　', '系统提示',
      MB_OK + MB_ICONSTOP + MB_TOPMOST);
    Exit;
  end;
  Result := bl;
end; 

相关阅读 >>

Delphi怎么实现一定范围内的随机数呢？

Delphi 如何使用通配符删除文件

isnumeric 判断字符串是否为数字

Delphi 删除或清空一个目录(包含多级)

Delphi 复制动态数组

Delphi 查询当前进程的内存使用大小

Delphi 全局变量 hinstance 到底是在什么时候赋值的?

Delphi 怎么将一个文件流转换成字符串？

重新组织编写Delphi的md2、md4、md5类

Delphi 延迟时间函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 检验指定字符串网址是否输入正确