![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Можно узнать имя из адреса к файлу на диск. Вот так:
Код:
var S: string; begin S:=ExtractFileName('D:\red.jpg'); end; http://forceway.ru/ ![]() |
#2
|
|||
|
|||
![]() Смотрите сначала в FAQ!!!
|
#3
|
||||
|
||||
![]() Код:
function ExtractUrlName(UrlName:String):String; var Index:Word; begin for Index:=Length(UrlName) downto 1 Do if UrlName[Index]='/' Then begin Result:=Copy(UrlName,Index+1,Length(UrlName)); Exit; end; end; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |