Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка txt-файла из другой папки 
:(
    Опции темы
stat007
Дата 24.12.2009, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
Подскажите как правильно сделать. Код, который я привёл ниже, загружает в Memo1 txt-файл, который совпадает с именем приведённым в ListBox1 и находится в папке с программой...
А нужно сделать так, чтобы происходило тоже самое, но только чтобы файл загружался с папки, которая находится так же в папке где программа (имя папки допустим: Новая папка).
Как это сделать???
Код

Memo1->Lines->LoadFromFile(ListBox1->Items->Strings[ListBox1->ItemIndex]);
PM MAIL   Вверх
Alca
Дата 24.12.2009, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50
А ты как думаешь?

Добавлено @ 17:05
Код

Memo1->Lines->LoadFromFile(
    ExtractFileDir( Application->ExeName() ) + _T("\\Новая папка\\") + ListBox1->Items->Strings[ListBox1->ItemIndex]
);


Это сообщение отредактировал(а) Alca - 24.12.2009, 17:07


--------------------
C++ cross-platform library
PM WWW ICQ Skype Jabber   Вверх
Данкинг
Дата 24.12.2009, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
stat007, вообще не забывай про эти полезные функции - "ExtractFileDir( Application->ExeName() )".  smile Я вроде уже писал их тебе в каком-пто примере.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
stat007
Дата 24.12.2009, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 521
Регистрация: 9.10.2008

Репутация: нет
Всего: -4
Alca, 
Странный код конечно, и 6 ошибок выдаёт.... а полегче никак????
PM MAIL   Вверх
vikaz
Дата 24.12.2009, 18:26 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
Цитата(stat007 @  24.12.2009,  20:13 Найти цитируемый пост)
Странный код конечно, и 6 ошибок выдаёт.... а полегче никак???? 

А что в этом коде такого странного и непонятного. Все пишут в разных средах,кто  в 6-ке, кто уже в 2009-2010. И там, естественно, есть небольшие различия. Но Вам пишут код, чтобы Вы имели представления и если бы Вы хотели разобраться, то уже давно бы это сделали.   smile 
попробуй так:
Код

Memo1->Lines->LoadFromFile(ExtractFileDir( Application->ExeName) + "Новая папка\\" + ListBox1->Items->Strings[ListBox1->ItemIndex]);
    Application->ExeName - возвращает полный путь с названием файла, откуда запущена программа (с:\test\test.exe)
  • ExtractFileDir() - оставляет от полного пути с названием файла только путь (с:\test\)
  •  "Новая папка\\" - любое название вашей папки, которая лежит в папке с программой, в конце обязательно нужен знак \\
  •  ListBox1->Items->Strings[ListBox1->ItemIndex] - возвращает строчку которая выделена у Вас в ListBox'e (допустим файл Проверка.txt)
Если все развернуть что написано Выше, то примерно получиться такая строка:
Код

Memo1->Lines->LoadFromFile("c:\\test\\Новая папка\\Проверка.txt");

СЛОЖНО? 

Это сообщение отредактировал(а) vikaz - 24.12.2009, 18:28


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Данкинг
Дата 24.12.2009, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(stat007 @  24.12.2009,  18:13 Найти цитируемый пост)
6 ошибок выдаёт

Например? smile  Мне аж интересно.

Цитата(stat007 @  24.12.2009,  18:13 Найти цитируемый пост)
а полегче никак???? 

Интересно, куда легче, чем одна строчка?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
vikaz
Дата 24.12.2009, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
на вскидку нашел только 1, нужно  Application->ExeName, вместо  Application->ExeName(). Ну и может на _T - ВСЕ!!!



--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0468 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.