...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