Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вывод из ListBox в Мемо 
V
    Опции темы
alekstav
Дата 5.1.2011, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Здравствуйте.
У меня в поле ListBox находится список стран, я хочу чтоб при движении курсора в поле ListBox в Мемо открывалось содержимое файла txt соответственно про каждую страну.
Подскажите, пожалуйста, что исправить в этом коде, чтоб файлы txt конкретных стран можно было положит не в общий каталог программы, а в отдельную папку. Дело в том, что файлов будет много и их лучше сразу рассортировать, а то можно будет запутаться самому.
Этот код работает нормально, но если все файлы лежат в корне программы, если их кладешь в подпапку, программа уже не может найти файлы.
"с:\2\Словарь\Страны\А\123.txt" В этом файле лежат название стран на букву "А" он нужен для заполнения ListBox. В этой же папке лежат файлы с каждой отдельной страной начинающейся с буквы "А". 
Код

begin
  ListBox1.Items.LoadFromFile ('C:\2\Словарь\Страны\А\123.txt');
  ListBox1.ItemIndex := 0;
  ListBox1Click (Sender);
  end;
 
 procedure TForm2.ListBox1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex > -1 then begin
    Memo1.Lines.LoadFromFile (ListBox1.Items[ListBox1.ItemIndex] + '.txt');
  end;
end;
PM MAIL   Вверх
Mach3
Дата 5.1.2011, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 2
Код

 Memo1.Lines.LoadFromFile (ListBox1.Items[ListBox1.ItemIndex] + '.txt');

На первый взгляд надо так:
Код

 Memo1.Lines.LoadFromFile ('с:\2\Словарь\Страны\А\'+ListBox1.Items[ListBox1.ItemIndex] + '.txt'); //необходимо уточнить директорию


Это сообщение отредактировал(а) Mach3 - 5.1.2011, 16:24
--------------------
Век живи - век учись...
PM MAIL ICQ   Вверх
AntonN
Дата 5.1.2011, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 18
тогда уж:
Код

Memo1.Lines.LoadFromFile( extractfilepath(paramstr(0))+'A\'+ListBox1.Items[ListBox1.ItemIndex] + '.txt'); 


плюс перепроверять ListBox1.ItemIndex на значение -1

Это сообщение отредактировал(а) AntonN - 5.1.2011, 17:19


--------------------
user posted image
PM MAIL WWW   Вверх
alekstav
Дата 5.1.2011, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Mach3,AntonN Спасибо, все получилось.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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