[Glomen]

В Delphi 8 хочу сделать такую штуку, чтоб при выборе в значения в listbox в textbox отобразалось запись сделаная для этого значения.
Тоесть выбираю например рецепт супа, и в текстбоксе выводится этот рецепт.
Как это очуществить?

[Decoding]

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

[Glomen]

А можно сделать какнить, без txt файла ?

[Decoding]

Конечно можно. Текстовые файлы я привел просто для примера, так как не знаю, как именно хранится у тебя информация. Ты же вместо них можешь использовать другой источник.

[Glomen]

а может подскажеш ссылочку на учебник или пример какойнить, где можно посмотреть про такие связанные таблицы?

[Decoding]

Конкретной ссылки дать не могу, ищи в нете статьи по работе с TList. По поводу примера, чем тебя не устраивает то, что я показал. Допустим рецепты хранятся в БД. Тогда в p^.Path хранишь ID этой записи. И по этому ID читаешь из таблицы в 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
      begin
         // Сначала ищешь эту запись в базе по p^.Path
         ...
         // А затем запихиваешь ее в TextBox
         Memo1.Text := Table1.FieldByName('имя_поля').AsString;
      end;
   end;
end;