如何在字符串（URL）里提取主机名呢？(100分)

比如：

http://www.delphibbs.com/delphibbs/askqn.asp

提取出 http://www.delphibbs.com/ 出来

function GetHostName(Inputstr: string): string;
var
i: integer;
mark: integer;
begin
mark:= 0;
result:= '';
i:= 0;
while (i < length(Inputstr)) or (result = '') do
begin
inc(i);
if (Inputstr = '/') and (Inputstr[i+1] = '/') then
mark:= i+2;
if (mark <> 0) and (Inputstr = '/') then
result:= copy(Inputstr,mark,i-mark);
end;
end;

接受答案了.