| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Загрузка текст.файла по индексу ListBox. [D7, XP]
Дима © (2010-02-27 02:19:00)Уважаемые Мастера! Возникла следующая задача:
Нужно сделать так, чтоб когда щелкаешь мышью
по строке 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;
Заранее спасибо за помощь !
Slym (2010-02-27 05:05:00) [1]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('Zadachi\'+IntToStr(ListBox1.ItemIndex)+'.doc');
RichEdit2.Lines.LoadFromFile('Otvetu\'+IntToStr(ListBox1.ItemIndex)+'.doc');
end;
Германн (2010-02-27 02:39:00) [2]
> Может его как то можно сократить
Можно. Достаточно вспомнить чем кончил Сократ. И воспользоваться этим методом. :)
Можно и не вспоминать Сократа, но это уже задачка из учебника для начинающих.
| |
