delphi 分离网址链接最后一层文件目录

function ExtractURLName(const S: String): String;

var

I, L, K1, K2: Integer;

begin

L := Length(S);

result := '';

K1 := 0;

K2 := 0;

for I:= L downto 1 do

if S[I] = '/' then

if K2 = 0 then

K2 := I

else

begin

K1 := I;

result := Copy(S, K1 + 1, K2 - K1 - 1);

Exit;

end;

result := Copy(S, K1 + 1, K2 - K1 - 1);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

showmessage(ExtractURLName('http://www.delphitop.com/html/zifuchuan/')); //结果 zifuchuan

end;

推荐分享