Как сделать два окна, название и описание?

[sadovod1972]

Подскажите, как в Делфи сделать следующее.
Программа содержит два окна, в одном список названий, а в другом описание этих названий.
Например, вы выбрали одно название в первом окне, а во втором сразу появилось описание этого названия.
Например, список первого окна: машина, дом, самолет.
И при выборе самолета во втором идет описание, что это и т.д.

Пример чисто символический, подскажите как это можно организовать и с помощью каких компонентов и команд?

[alextrof94]

Компоненты - ListBox и Memo. Держишь 2 строковых массива для названий и описаний.
Формы создаются через "Новое -> Форма".
При старте нечто вроде

ListBox.Items = stringArray1;

В обработчике ListBox пишешь нечто типа

Form2.Memo1.Text = stringArray2[ListBox.ItemIndex];

[sadovod1972]

Я наверно, не правильно описал то что нужно.
Окно программы должно быть одно, а внутри два listbox.
В одном список названий, а в другом описание этих названий.

[Аватар]

Для описания по крайней мере Memo намного лучше ListBox. А все действия по обновлению Memo делать в ListBox.OnClick если это о чем-то говорит

[sadovod1972]

Подскажите подробней пожалуйста.
Как написать такой код?
При выборе строки в listbox1, в listbox2 или memo появляется описание этой строки.

[саша40]

Сообщение от sadovod1972

Я наверно, не правильно описал то что нужно.
Окно программы должно быть одно, а внутри два listbox.
В одном список названий, а в другом описание этих названий.

Сначала он говорил, что две формы. А теперь форма одна. Автор, ты определишься или как?
короче вот код:

{На форме ListBox и Memo. Имена стандартные. Свойство ReadOnly("Только чтение") у Memo на True. Описание можешь хранить в файле или в массиве строк. }
//Cобытие onClick у ListBox
begin
Memo1.Lines.Clear;
Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + 'res/' + ListBox1.Items.Strings[ListBox1.ItemIndex] + '.txt'); //загружаем из файла. Файл в папке res в каталоге с программой. Имя файла: <выбранное в ListBox>.txt.
{для загрузки из массива просто присвоешь свойство Text и Memo.Lines в строку из массива.
Из ресурсов совсем другая история.}
end;

[sadovod1972]

Спасибо за помощь, примерно это мне и нужно. Только мне нужно, чтобы описание хранилось в exe файле, а не в отдельном, а тут запрашивает файл из строки.
Я с массивами не работал и с ресурсами тоже, для меня это немного не понятно.

Если не сложно подскажите, как сделать так, чтобы описание хранилось в exe файле при компиляции?

[sadovod1972]

Вот файл ini из такой программы, подскажите что есть что в нем?
-------------------------------------------------
[Main]
Count = 4
Country1 = "Китай"
Country2 = "Монголия"
Country3 = "Россия"
Country4 = "США"

[Китай]
Count = 1
Description1 = "вот погодите немного, сами все увидите"

[Монголия]
Count = 2
Description1 = "а вот было время..."
Description2 = "у-у-у"

[Россия]
Count = 1
Description1 = "эта страна"

[США]
Count = 1
Description1 = "пиндосы"
----------------------------------------------------

Что значит Count = 4, Count = 1 и Description1 и 2?

[sadovod1972]

Подскажите, как этот код изменить так, чтобы на одной форме было два listbox с разным содержанием и описанием в memo?


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IniFiles;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

var
ini: TIniFile;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i, c: Integer;
begin
ini := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'страны.ini');

c := ini.ReadInteger ('Main', 'Count', 0);
ListBox1.Items.Clear;
for i := 1 to c do
ListBox1.Items.Add (ini.ReadString ('Main', 'Country'+IntToStr(i), ''));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
i, c: Integer;
s: String;
begin
if ListBox1.ItemIndex > -1 then begin
s := ListBox1.Items[ListBox1.ItemIndex];
c := ini.ReadInteger (s, 'Count', 0);
Memo1.Lines.Clear;
for i := 1 to c do
Memo1.Lines.Add (ini.ReadString (s, 'Description'+IntToStr(i), ''));
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil (ini);
end;

end.

Вот файл ini от этого кода:

[Main]
Count = 4
Country1 = "Китай"
Country2 = "Монголия"
Country3 = "Россия"
Country4 = "США"

[Китай]
Count = 1
Description1 = "вот погодите немного, сами все увидите"

[Монголия]
Count = 2
Description1 = "а вот было время..."
Description2 = "у-у-у"

[Россия]
Count = 1
Description1 = "эта страна"

[США]
Count = 1
Description1 = "пиндосы"

Мне нужно два listbox на разных вкладках PageControl одной формы, как это правильно сделать?