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;

推荐分享