Извлечь имя файла из строки URL

Советы » URL » Извлечь имя файла из строки URL

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

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com