本文整理自网络,侵删。
//如: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:窗体的扩展样式gwl_exstyle用于setwindowlong
Delphi 获取指定年月的周、日数 -weeksinayear、weeksinyear、daysinayear、daysinamonth、daysinyear、daysinmonth
Delphi异常处理try except语句和try finally语句用法以及区别
Delphi firedac 下的 sqlite 创建数据库
Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置:上下左右;
更多相关阅读请进入《Delphi》频道 >>