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 ioutils tdirectory获取一个目录下所有文件名，包括子目录

Delphi webbroker isapi 示例说明

Delphi xe10 fdmemtable 数据保存本地和从本地加载

Delphi windows 编程[8] - wm_paint 消息

Delphi连接access提示密码无效解决一例

Delphi 获取unigui 控件id 及获取html值

Delphi的字符串与16进制的相互转换函数的汇编代码

Delphi 中 tjpegimage 中的一处问题修复

xp/2003下Delphi最简单的方法开放3389

Delphi xe6 for android 让手机震动

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

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