Dateinamen aus einer URL ?

[bigg]

Hier die long Version:

Delphi-Quellcode:

function GetUrlFileName(const url: String): String;
var i, l, p: Integer;
begin
Result := '';
p := -1;

if url <> '' then
begin
l := Length(url);

for i := l downto 1 do
begin if url[i] = '/' then
begin
p := i;
Break;
end;
end;

if p <> -1 then
Result := Copy(url, p + 1, l);

end;
end;

Es geht aber noch länger