Скачать: CL | DM;

Загрузка текст.файла по индексу 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]

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

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

---

← →
Slym ©   (2010-02-27 05:05) [2]

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


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.054 c