Показать сообщение отдельно
  #2  
Старый 27.09.2006, 01:01
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Вот идея, как бы я это сделал на 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.
Ответить с цитированием