Приветствую Вас Гость | RSS

Меню сайта

Реклама

Категории раздела
ASP [2]
BackDoor [4]
CGI и Cookies [22]
Dial-up [0]
E-mail [0]
FTP [2]
ICQ [0]
TCP/IP [0]
Telnet [2]
URL [8]
XML [0]
Браузер [0]
Интернет [0]
Компоненты и Интернет [0]
Почтовый клиент [0]
Протоколы [0]
Сетевые диски [6]
Сеть [0]
Сокеты [0]
Файлы и Интернет [0]

Наш опрос
Есть ли у Вас свой сайт?
Всего ответов: 48

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Статьи » Интернет и Сети » 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
Категория: URL | Добавил: Angel (10.07.2008)
Просмотров: 576 | Рейтинг: 0.0/0
  Delphi Lab   Главная   Регистрация   Вход  
Интересная Цитата

Поиск

Магазин


Copyright MyCorp © 2025 Хостинг от uCoz