|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Связать TextBox и ListBox (Delphi 8)
В Delphi 8 хочу сделать такую штуку, чтоб при выборе в значения в listbox в textbox отобразалось запись сделаная для этого значения.
Тоесть выбираю например рецепт супа, и в текстбоксе выводится этот рецепт. Как это очуществить? |
#2
|
||||
|
||||
Вот идея, как бы я это сделал на D6. Раз ты не уточнил, где хранятся рецепты, сделаем допущение, что каждый рецепт лежит в отдельном текстовом файле. Тебе понадобится TList, в котором будет храниться структура вида:
Код:
type PRec = ^TRec; TRec = record Caption, Path: string; end; Объявляем необходимые переменные: Код:
var p: PRec; l: TList; В p^.Caption записываешь заголовок, который будет отображаться в ListBox. В p^.Path записываешь путь к соответствующему файлу: Код:
l := TList.Create; New( p ); p^.Caption := 'Заголовок для ListBox'; p^.Path := 'Путь к файлу'; l.Add( p ); p := l[0]; ListBox1.Items.Add( p^.Caption ); Теперь при клике по ListBox загружаешь в TextBox нужный файл: Код:
var i: integer; begin for i := 0 to l.Count-1 do begin p := l[i]; if p^.Caption = ListBox1.Items.Strings[ListBox1.ItemIndex] then Memo1.Lines.LoadFromFile( p^.Path ); end; end; Вот в кратце идея. Не думаю, что могут возникнуть проблем с переносом этого кода на Delphi 8. Последний раз редактировалось Decoding, 27.09.2006 в 04:42. |
#3
|
|||
|
|||
А можно сделать какнить, без txt файла ?
|
#4
|
||||
|
||||
Конечно можно. Текстовые файлы я привел просто для примера, так как не знаю, как именно хранится у тебя информация. Ты же вместо них можешь использовать другой источник.
|
#5
|
|||
|
|||
а может подскажеш ссылочку на учебник или пример какойнить, где можно посмотреть про такие связанные таблицы?
|
#6
|
||||
|
||||
Конкретной ссылки дать не могу, ищи в нете статьи по работе с TList. По поводу примера, чем тебя не устраивает то, что я показал. Допустим рецепты хранятся в БД. Тогда в p^.Path хранишь ID этой записи. И по этому ID читаешь из таблицы в TextBox.
Код:
|
#7
|
|||
|
|||
Vlt надо возвращятся на delphi 7, она попанятней как то. а 8 больше под NET заточена
|