Загрузка текст.файла по индексу ListBox.

← →
Дима (2010-02-27 02:19) [0]

Уважаемые Мастера! Возникла следующая задача:
Нужно сделать так, чтоб когда щелкаешь мышью
по строке ListBoxa, загружались в RichEditы текстовые файлы,
название которых соответсвуют номеру ListBox.ItemIndex.
В принципе я сделал через инструкцию Case но кода получилось
много, так как там 200 файлов.
Может его как то можно сократить(упростить) ?
Прошу сильно не пинать так, как я только начинаю обучатся программированию.
Вот кусок моего кода:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
case ListBox1.ItemIndex of
0:begin
RichEdit1.Lines.LoadFromFile("Zadachi\0.doc");
RichEdit2.Lines.LoadFromFile("Otvetu\0.doc");
end;
1:begin
RichEdit1.Lines.LoadFromFile("Zadachi\1.doc");
RichEdit2.Lines.LoadFromFile("Otvetu\1.doc");
end;
2:begin
RichEdit1.Lines.LoadFromFile("Zadachi\2.doc");
RichEdit2.Lines.LoadFromFile("Otvetu\2.doc");
end;
3:begin
RichEdit1.Lines.LoadFromFile("Zadachi\3.doc");
RichEdit2.Lines.LoadFromFile("Otvetu\3.doc");
end;
4:begin
RichEdit1.Lines.LoadFromFile("Zadachi\4.doc");
RichEdit2.Lines.LoadFromFile("Otvetu\4.doc");
end;
end;

Заранее спасибо за помощь !

← →
Германн © (2010-02-27 02:39) [1]

> Может его как то можно сократить

Можно. Достаточно вспомнить чем кончил Сократ. И воспользоваться этим методом. :)
Можно и не вспоминать Сократа, но это уже задачка из учебника для начинающих.

procedure TForm1.ListBox1Click(Sender: TObject); begin RichEdit1.Lines.LoadFromFile("Zadachi\"+IntToStr(ListBox1.ItemIndex)+".doc"); RichEdit2.Lines.LoadFromFile("Otvetu\"+IntToStr(ListBox1.ItemIndex)+".doc"); end;

Загрузка текст.файла по индексу ListBox. Найти похожие ветки