Вывод из ListBox в Мемо

[alekstav]

Здравствуйте.
У меня в поле ListBox находится список стран, я хочу чтоб при движении курсора в поле ListBox в Мемо открывалось содержимое файла txt соответственно про каждую страну.
Сейчас у меня получается, что открывается описание только для первой страны и при дальнейшем перемещении курсора нечего не происходит,
Подскажите, что нужно подправить или если мой код не рационален, то, как сделать более удачный код.

procedure TForm2.Button4Click(Sender: TObject);
  var
   k:string;    
   i:integer;
begin
    ListBox1.items.add('Дания');
    ListBox1.items.add('Исландия');
    ListBox1.items.add('Италия');
    ListBox1.items.add('Нидерланды');
    
ListBox1.itemindex:=0;

    case ListBox1.ItemIndex of
      0: k:='C:\5\222\1.txt';  { Дания }
      1: k:='C:\5\222\2.txt';{ Исландия }
      2: k:='C:\5\222\3.txt'; { Италия }
      3: k:='C:\5\222\4.txt'; {Нидерланды}

     end;
      memo1.Lines.LoadFromFile(k);

     end;

[Valio]

Дык ты обнуляешь итеминдекс...

ListBox1.itemindex:=0;

[Sibedir]

Заполнение Мемо по ListBox.zip
Но лучше ч/з ини-файл
Заполнение Мемо по ListBox_2.zip

    ListBox1.items.add('Дания');
    ListBox1.items.add('Исландия');
    ListBox1.items.add('Италия');
    ListBox1.items.add('Нидерланды');
    
ListBox1.itemindex:=0;

    case ListBox1.ItemIndex of
      0: k:='C:\5\222\1.txt';  { Дания }
      1: k:='C:\5\222\2.txt';{ Исландия }
      2: k:='C:\5\222\3.txt'; { Италия }
      3: k:='C:\5\222\4.txt'; {Нидерланд}

А так больше никогда-никогда не делай. Программа должна быть гибкой.

[alekstav]

Sibedir Спасибо большое!

[alekstav]

Sibedir Ваш код очень компактен и удобен. Все работает, но вот мне бы хотелось, чтоб файлы txt не были в общем каталоге с программой, так как их будет очень много. Хотелось бы их разложить по папкам. Как я понял файл txt с содержанием ListBox, тогда должен лежать в той же папке, что и файлы которые должны будут читаться (так как судя по всему путь к файлам частично берется от файла с названиями что используются в ListBox), но вот, что то не получается их вызвать если они лежать в подпапке с программой, при этом когда кладешь в каталог с программой все работает.
Подскажите, что нужно в вашем коде подправить, чтоб файлы стали запускаться из подпапок?
вот как у меня сейчас выглядит Ваш код

begin
  ListBox1.Items.LoadFromFile ('C:\2\Словарь\Информация1\Страны\А\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;

с:\2\Словарь\Информация1\Страны\А\1 23.txt В этом файле лежат название стран на букву "А". В этой же папке лежат файлы с каждой страной относящейся к букве "А".

[MoBLer]

Попробуй так

 Memo1.Lines.LoadFromFile ('C:\2\Словарь\Информация1\Страны\А\'+ListBox1.Items[ListBox1.ItemIndex] + '.txt');

[Sibedir]

Опять же, лучше через ini
Заполнение Мемо по ListBox_3.zip

[alekstav]

MoBLer Спасибо.
Sibedir Да наверно, лучше через ini. Буду осваивать этот способ.

[sadovod1972]

А есть ли способ сделать так, чтобы описание при компиляции было в ехе файле, то есть был всего один ехе файл, без ini?

[Shouldercannon]

Вшить ini-файл в тело exe