|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.10.2010, 17:05 | #1 |
Форумчанин
Регистрация: 14.10.2009
Сообщений: 128
|
Имена всех секций всех ini-файлов (DELPHI)
Пытаюсь прочитать все имена всех ini-файлов в текущей папке,делаю вот так
Код:
И посоветуйте,как можно минимизировать всё,что я наваял.ListBox-ы я заменю позже на StringList. |
10.10.2010, 17:20 | #2 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Читаются все файлы. Только секции текущего файла заменяют в ListBox2 считанные на предыдущем шаге.
Здесь без еще одного цикла не обойтись. А минимизировать в коде нечего. Он и так крошечный. |
10.10.2010, 17:23 | #3 |
Форумчанин
Регистрация: 14.10.2009
Сообщений: 128
|
|
10.10.2010, 17:26 | #4 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Прошу прощения, не понял. Пример чего?
|
10.10.2010, 17:32 | #5 |
Форумчанин
Регистрация: 14.10.2009
Сообщений: 128
|
Пример доп.цикла,если не затруднит.
|
10.10.2010, 17:37 | #6 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Так примерно:
Код:
|
10.10.2010, 17:42 | #7 |
Форумчанин
Регистрация: 14.10.2009
Сообщений: 128
|
Работает!Огромнейшее спасибо!Весы "подкачал"
|
10.10.2010, 17:44 | #8 |
Форумчанин
Регистрация: 08.09.2010
Сообщений: 880
|
Благодарю Удачи!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[Delphi] Как получить имена всех файлов с опред. расширением. | T-dayne | Помощь студентам | 1 | 26.03.2010 16:40 |
Получить имена всех листов в книге | Temnota | Microsoft Office Excel | 6 | 26.12.2009 07:36 |
DOS команда для удаления всех файлов, имена которых содержат цифры | Samopal | Операционные системы общие вопросы | 1 | 23.12.2008 21:12 |
Показ всех имен файлов в каталоге[Delphi] | sergey31 | Помощь студентам | 2 | 27.07.2008 16:43 |
Получить имена всех файлов, которые были открыты с помощью приложения | Kn793 | Общие вопросы Delphi | 9 | 10.07.2008 15:31 |