写一个程序也不难吧。
function GetLinkName(URL:string):string;
var
Len1,Pos1:integer;
begin
Len1 := Length(URL);
Pos1 := Len1;
while Pos1>0 do
if URL[Pos1]='/' then
break;
Pos1 := Pos1 - 1;
end;
Result := Copy(URL,Pos1+1,Len1-Pos1);
end;
very easy
---------------
var
s:string;
i,p,l:integer;
begin
s:='http://www.delphibbs.com/delphibbs/askqn.asp';
p:=0;
l:=length(s);
for i:=1 to l do if s='/' then p:=i;
p:=p+1;
if p<>0 then s:=copy(s,p,l-p);
caption:=s;
end;
