![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Врубиться не могу. Есть список определенных слов в ListBox1(допустим это галоша, сапог, валенок) и имеется memo1 где должно быть описание для каждого слова.
Выбираю "сапог" и о нем написано Выбираю "валенок" и о нем написано. Помогите пожалуйста!!!!!! |
|
#2
|
|||
|
|||
|
а где ты хранишь эти описания?
В зависимости от этого и заполняется ListBox так, что бы при выделении элемента в нем можно было загрузить соотв. описание. |
|
#3
|
|||
|
|||
|
Описание так же как и слова хранятся в текстовом файле
|
|
#4
|
|||
|
|||
|
В ЭТОМ же текстовом файле или в другом (других) ?
Все описания слов в ОДНОМ файле (что является разделителем) ? Или описание каждого слова - в отдельном файле ? |
|
#5
|
|||
|
|||
|
Нажмите в сообщении на иконку 'Быстрый ответ' для активации этой опции.
|
|
#6
|
|||
|
|||
|
У меня сделано так:
есть n-ое колличество кнопок и для каждой свой файл, по нажатию на кнопки в листбокс загружаются соответствующие списки. Теперь к каждому слову из списка нужно вывести коментарии в мемо. Я думаю что лучше коментарии и списки держать в отдельных файлах а не в одном. А как это сделать не могу понять. |
|
#7
|
||||
|
||||
|
для каждого коментария создай отдельный файл, имя файла должно быть рывным слову в списке
Код:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
memo1.Clear;
try
memo1.Lines.LoadFromFile(ListBox1.Items.Strings[ListBox1.ItemIndex]+'.txt');
except
memo1.Lines.Add('Файла нет!!!');
end;
end; |
|
#8
|
|||
|
|||
|
Цитата:
И комментарии со списками вполне можно держать в одном файле (Недостатком может стать увеличенное время обработки файла при загрузке списка в случае большого количества записей) Если не хочется сильно нагружать мозг, то достаточно следующего: Файл заполнять строками. Каждая строка из себя представляет слово и, через разделитель, комментарий, например "Слово|комментарий". Далее, при нажатии на кнопку открывать файл, и пока файл не закончиться выполнять алгоритм: Код:
Прочитать строку (Readln)
Выделить из строки Символы до разделителя (Copy(ReadedString, 1, pos('|', ReadedString)))
Добавить "слово" в листбокс.Но это простейший вариант, при таком подходе не допускается комментариев, содержащих несколько строк (если только перед добавлением в файл символы окончания строки и переноса каретки #10#13 не заменять на какой-нибудь другой, например #, что бы по факту в файле получалась строка, а потом при извлечении строки заменять # обратно на комбинацию #10#13) |
|
#9
|
||||
|
||||
|
А чем Tstrings.Values[] не устраивает?
создаешь файл вида слово=значение загружаешь в StringList или TListBox по желанию и потом обращаешься вот так Код:
Label1.Caption := StringList.Values['Валенок'] Код:
Label1.Caption := ListBox.Items.Values['Валенок'] Последний раз редактировалось 0nni, 10.07.2009 в 17:15. |