 |
|
Модераторы: Snowy, MetalFan, bems, Poseidon |
 
|
|
Получить имя файла, Нужно получить имя файла и его расширени 
| lordgabriel |
|
|||
 Новичок Профиль Группа: Участник Сообщений: 35 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
Как получить имя файла и его расширение без пути.
И записать в строковую переменную. пример. edit2.text:= 'E:\Programming\Company\Coder2\Coder1\Coder\1.txt'; AssignFile(f1,edit1.Text); мне надо в OutFile записасть 1.txt |
|||
|
||||
Дата 13.5.2008, 20:00 (
Загрузка ...
| Данкинг |
|
|||
 Yersinia pestis  Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 11 Всего: 130 |
extractfilename
-------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| lordgabriel |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 35 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
OutLink:= extractfilename(f1);
не соответствие типов |
|||
|
||||
| THandle |
|
|||
 Хранитель Клуба  Награды: 1 Профиль Группа: Админ Сообщений: 3639 Регистрация: 31.7.2007 Где: Moscow, Dubai Репутация: 50 Всего: 372 |
Это сообщение отредактировал(а) THandle - 13.5.2008, 20:05 |
|||
|
||||
| lordgabriel |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 35 Регистрация: 29.4.2008 Репутация: нет Всего: нет |
Огромное вам спасибо!!!
 На мастерах делфи 46 постов длилась ветка и без результатно.  |
|||
|
||||
| SneG0K |
|
|||
 Max Mara Профиль Группа: Завсегдатай Сообщений: 1887 Регистрация: 1.12.2007 Где: Wis Dells Репутация: 3 Всего: 54 |
Стыдно... такую функцию можно самому написать за 5 минут |
|||
|
||||
| Данкинг |
|
|||
|
Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 11 Всего: 130 |
Т.е. там никто этой функции не знает?  -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| mr.Anderson |
|
|||
 iOS Lead Developer Профиль Группа: Участник Клуба Сообщений: 3374 Регистрация: 20.12.2004 Где: далеко Репутация: 3 Всего: 128 |
Данкинг, выходит, так...
А насчет "написать самому" - для Окошек понятно, как ее писать. А если надо универсальную, под Окошки + Линух и производные от него? --------------------   |
|||
|
||||
|
|
| Правила форума "Delphi: Для новичков" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Для новичков | Следующая тема » |
[ Время генерации скрипта: 0.0515 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |