...extract the filename of an URL?

Author: Rainer Kümmerle
Homepage: http://www.thinklazy.de

Category: Strings

function ExtractUrlFileName(const AUrl: string): string
var 
  
i: Integer; 
begin 
  
i := LastDelimiter('/', AUrl);
  Result := Copy(AUrl, i + 1, Length(AUrl) - (i)); 
end

procedure TForm1.Button1Click(Sender: TObject); 
var 
  
s: string
begin 
  
s := ExtractUrlFileName('http://www.delphimania.de/index.php'); 
  ShowMessage(s);  //index.php 
end

 

printed from
www.swissdelphicenter.ch
developers knowledge base