Delphi 获取网址链接协议头

本文整理自网络，侵删。

 
uses System.StrUtils;
function  ExtractPathURLToCompleteURL ( URL : string ) : string;
var
    Temp : string;
    Position : Integer;
begin
    if RightStr( Trim(URL) , 1) = '/' then
        Temp := URL
    else begin
        Position := Length( URL );
        if Pos( '/', URL ) <> 0 then
        begin
            while ( Copy( URL, Position, 1 ) <> '/' ) do dec( Position );
            Temp := LeftStr( URL, Position  )
        end else
            Temp := Trim( URL );
    end;
    Result := Trim(Temp);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Text:=ExtractPathURLToCompleteURL('http://www.delphitop.com');   //结果  http://
end;
 

相关阅读 >>

Delphi 将jpg图片上传到sqlserver数据库里

Delphi2010显示选择文件夹对话框 (有新建按钮)

Delphi datasnap http用法注意事项

Delphi文件分割合并

Delphi tfontdialog

Delphi sqlite vacuum 压缩数据库体积

Delphi string转为olevariant

Delphi 从paintbox拷贝一部分内容到tbitmap

Delphi fdquery 判断记录为空

Delphi firedac 下的 sqlite 创建数据库

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

转载请注明出处：木庄网络博客 » Delphi 获取网址链接协议头