Nombre de archivo de un link

[JuanOrtega]

hola , estaba pensando en hacer un programa en delphi para bajar archivos , el problema es que no se como sacar el nombre de archivo de un link.
un ejemplo seria

httx://localhost/archivos/tengo.zip

La idea seria poder reconocer el archivo final de el link que seria tengo.zip para despues guardar ese nombre en una variable string

[ecfisa]

Hola Lepuke.

Código Delphi [-]
function GetLinkFileName(const Link: string): string;
var
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
   TS.Delimiter:= '/';
   TS.DelimitedText:= Link;
   Result:= TS[TS.Count-1];
  finally
   TS.Free;
  end;
end;

Llamadas de ejemplo:

Código Delphi [-]
var
  s: string;
begin
  s:= 'httx://localhost/archivos/tengo.zip';
  s:= GetLinkFileName(s);
  ShowMessage(GetLinkFileName('http://www.terawiki.clubdelphi.com/archivos/Delphi/Manuales/La_Cara_Oculta_De_Delphi_4.pdf.zip'));
 ...
end;

Saludos.