|
Вопрос # 4 612/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Помогите, пожалуйста, дописать или изменить код.
Есть CheckListBox, который при создании формы заполняется названиями директорий из каталога «Сборка». Названия директорий – это перечень деталей (Болт, Гайка, Планка и т.д.). В каждой директории лежит текстовый файл с перечнем комплектации (Например - Гайка, Шайба, Гровер). Нужно чтобы при выборе, например «Планка» был считан текстовый файл из папки «Планка» и если не выбраны чек-боксы перечисленные в файле был вывод в метку – «Выберите Болт и т.д.».
Приложение: Переключить в обычный режим-
-
- procedure TForm1.ChList9_1ClickCheck(Sender: TObject);
- var
- i, l, k: Integer;
- s: string;
- begin
-
- i := ChList9_1.ItemIndex;
- Str := TStringList.Create;
- Str.Clear;
-
- if ChList9_1.Checked[i] = true then
-
- if FileExists(s + '' + ChList9_1.Items.Strings[i] + ' Completing .txt')
- then
- begin
- Str.LoadFromFile(s + '' + ChList9_1.Items.Strings[i] +
- ' Completing.txt');
- end;
- end;
-
- Memo1.Lines.Clear;
-
-
- for k := 0 to ChList9_1.Items.Count - 1 do
- begin
- for l := 0 to str.Count - 1 do
- begin
- if AnsiCompareText(ChList9_1.Items.Strings[k],
- str.Strings[l]) = 0 then
- begin
-
-
- if ChList9_1.Checked[k] = false then
- begin
-
-
- str.Strings[l]);
- end;
- end
- end;
- end;
- end;
-
-
-
-
 |
Вопрос задал: OlegD (статус: Посетитель)
Вопрос отправлен: 27 сентября 2010, 17:36
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 21; последнее сообщение — 29 сентября 2010, 08:15; участников в обсуждении: 2.
Страницы: [« Предыдущая] [1] [2]
|
min@y™ (статус: Доктор наук), 29 сентября 2010, 08:15 [#21]:
Цитата (OlegD):
Большое Вам спасибо. Мне помогли подправить Ваш код и все работает.
Какой ещё код?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
