本文整理自网络，侵删。
//获取主站地址；function getSite(url:string):string;var dir,s:string; p:integer;begin s:=url; p:=pos('/',s); if(p<=0)then begin result:=url;exit;end; dir:=leftstr(s,p-1); if(dir='http:')then s:=rightstr(s,length(s)-7); if(dir='https:')then s:=rightstr(s,length(s)-8); p:=pos('/',s); if(p<=0)then begin result:=url;exit;end; s:=leftstr(s,p-1); result:=s;end;//获取主站地址；function getPort(url:string):string;var dir,s:string; p:integer;begin s:=url; p:=pos('/',s); if(p<=0)then begin result:=url;exit;end; dir:=leftstr(s,p-1); if(dir='http:')then s:=rightstr(s,length(s)-7); if(dir='https:')then s:=rightstr(s,length(s)-8); p:=pos('/',s); if(p<=0)then begin result:=url;exit;end; s:=leftstr(s,p-1); p:=pos(':',s); if(p>0)then s:=rightstr(s,length(s)-p) else s:=''; result:=s;end; 相关阅读 >>
Delphi firedac 下的 sqlite [6] - 加密
Delphi中输入框不能输入初数字意外的字符串的函数（isnumeric）
Delphi 时间差函数及部分字符串与日期时间相互转换的函数
Delphi 简单的英文数字字符串加密解密函数（不支持中文）
更多相关阅读请进入《Delphi》频道 >>
