Уменьшение программного кода

@DummyGirl · Регистрация: 12.10.2015

Author24 — интернет-сервис помощи студентам

Привет, есть код:

Кликните здесь для просмотра всего текста

Delphi

procedure TForm1.tv1Change(Sender: TObject; Node: TTreeNode);
begin
if tv1.Selected.AbsoluteIndex=1 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'align.txt');
 
if tv1.Selected.AbsoluteIndex=2 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'alignment.txt');
 
if tv1.Selected.AbsoluteIndex=3 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'anchors.txt');
 
if tv1.Selected.AbsoluteIndex=4 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'autosize.txt');
 
if tv1.Selected.AbsoluteIndex=5 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'bidimode.txt');
 
if tv1.Selected.AbsoluteIndex=6 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'caption.txt');
 
if tv1.Selected.AbsoluteIndex=7 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'color.txt');
 
if tv1.Selected.AbsoluteIndex=8 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'Constraints.txt');
 
if tv1.Selected.AbsoluteIndex=9 then mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'/doc/'+'cursor.txt');
end;

TreeView.
Можно ли как нибудь уменьшить его?Знаю что можно через case, но нет желания использовать его(хочу что-нибудь полегче "узнать"

@Puporev · 24.11.2016, 16:14

Например создать массив из имен файлов

Delphi

1	const a:array[1..9] of string;

и вызывать

Delphi

1	mmo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+a[tv1.Selected.AbsoluteIndex]);

@qwertehok · 24.11.2016, 16:16

Delphi

const
  a:array [1..9] of string =('align','alignment','anchors','autosize','bidimode','caption','color','Constraints','cursor');
 
procedure TForm1.Button1Click(Sender: TObject);
var s:string
begin
  case tv1.Selected.AbsoluteIndex of
    1:s:=ExtractFilePath(Application.ExeName)+'/doc/'+a[1]+'.txt');
    2:s:=ExtractFilePath(Application.ExeName)+'/doc/'+a[2]+'.txt');
    ..
  end;
mmo1.Lines.LoadFromFile(s);
 
end;

@Teodor7 · 24.11.2016, 16:16

Названия текстовых файлов в массив и цикл от 1 до 9.

@Puporev · 24.11.2016, 16:18

Case ему не нужно, а цикл здесь совсем ни к чему.

@DummyGirl · 24.11.2016, 16:25 **[ТС]**

Еще такой вот вопрос, можно ли где нибудь найти описание всех Событий,Свойств,Методов? С примерами -_-

@qwertehok · 24.11.2016, 16:27

Не по теме:

ага, а еще описание всех программ с исходными кодами

в учебнике смотрели?

@DummyGirl · 24.11.2016, 16:33 **[ТС]**

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

в учебнике смотрели?

Там не все(который у меня).

Не по теме:

если бы я был бы таким лентяем, сразу бы всю программу просил бы -_- и отчёт на 30 листов без кода

@qwertehok · 24.11.2016, 16:39

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

Там не все

а что нужно то? у яндекса спроси - сейчас есть куча сайтов с описанием всех модулей, функций. даже с примерами

@Teodor7 · 25.11.2016, 12:51

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

а цикл здесь совсем ни к чему

Совершенно верно. Бес попутал

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

описание всех Событий,Свойств,Методов? С примерами

F1

@DummyGirl · 25.11.2016, 23:03 **[ТС]**

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

F1

Отключено.

@northener · 26.11.2016, 00:50

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

Отключено.

Кем отключено? Врагами?
Но даже если и врагами. Есть же docwiki

@DummyGirl · 26.11.2016, 01:19 **[ТС]**

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

Кем отключено? Врагами?

Фиг его как, но когда жму F1, ноль реакции

@northener · 26.11.2016, 01:23

Либо поставил лайт-версию, либо какая-то другая программа (ну очень дурная) перехватывает нажатие сей клавиши. Но в любом случае docwiki спасет ОРД, если он захочет.

@Teodor7 · 26.11.2016, 18:12

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

Отключено.

Какая версия Дельфи? Там случаем не Chm help? Знаю лечение этой беды.

@MyEternity · 27.11.2016, 00:32

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

if tv1.Selected.AbsoluteIndex=8

В tv можно грузить указатели на нужный тип данных.
Грузите, храня в них нужные вам имена файлов.
В нужный момент извлекаете и делаете все, что душе угодно.

@DummyGirl 3 / 3 / 1 Регистрация: 12.10.2015 Сообщений: 212
	26.11.2016, 01:19 [ТС]	13
	Сообщение от northener Кем отключено? Врагами? Фиг его как, но когда жму F1, ноль реакции 0

@Teodor7 53 / 53 / 5 Регистрация: 22.11.2016 Сообщений: 268
	24.11.2016, 16:16	4
	Названия текстовых файлов в массив и цикл от 1 до 9. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.11.2016, 16:18	5
	Case ему не нужно, а цикл здесь совсем ни к чему. 0

@DummyGirl 3 / 3 / 1 Регистрация: 12.10.2015 Сообщений: 212
	24.11.2016, 16:25 [ТС]	6
	Еще такой вот вопрос, можно ли где нибудь найти описание всех Событий,Свойств,Методов? С примерами -_- 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	24.11.2016, 16:27	7
	Не по теме: ага, а еще описание всех программ с исходными кодами в учебнике смотрели? 0

@DummyGirl 3 / 3 / 1 Регистрация: 12.10.2015 Сообщений: 212
	24.11.2016, 16:33 [ТС]	8
	Сообщение от qwertehok в учебнике смотрели? Там не все(который у меня). Не по теме: если бы я был бы таким лентяем, сразу бы всю программу просил бы -_- и отчёт на 30 листов без кода 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	24.11.2016, 16:39	9
	Сообщение от DummyGirl Там не все а что нужно то? у яндекса спроси - сейчас есть куча сайтов с описанием всех модулей, функций. даже с примерами 0

@Teodor7 53 / 53 / 5 Регистрация: 22.11.2016 Сообщений: 268
	25.11.2016, 12:51	10
	Сообщение от Puporev а цикл здесь совсем ни к чему Совершенно верно. Бес попутал Сообщение от DummyGirl описание всех Событий,Свойств,Методов? С примерами F1 0

@DummyGirl 3 / 3 / 1 Регистрация: 12.10.2015 Сообщений: 212
	25.11.2016, 23:03 [ТС]	11
	Сообщение от Teodor7 F1 Отключено. 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,250
	26.11.2016, 00:50	12
	Сообщение от DummyGirl Отключено. Кем отключено? Врагами? Но даже если и врагами. Есть же docwiki 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,250
	26.11.2016, 01:23	14
	Либо поставил лайт-версию, либо какая-то другая программа (ну очень дурная) перехватывает нажатие сей клавиши. Но в любом случае docwiki спасет ОРД, если он захочет. 0

	27.11.2016, 00:32

@Teodor7 53 / 53 / 5 Регистрация: 22.11.2016 Сообщений: 268
	26.11.2016, 18:12	15
	Сообщение от DummyGirl Отключено. Какая версия Дельфи? Там случаем не Chm help? Знаю лечение этой беды. 0

@MyEternity 97 / 97 / 25 Регистрация: 25.04.2016 Сообщений: 525
	27.11.2016, 00:32	16
	Сообщение от DummyGirl if tv1.Selected.AbsoluteIndex=8 В tv можно грузить указатели на нужный тип данных. Грузите, храня в них нужные вам имена файлов. В нужный момент извлекаете и делаете все, что душе угодно. 0