 |
|
Модераторы: Snowy, MetalFan, bems, Poseidon |
 
|
|
Создание массива из файла 
| Serious2008 |
|
||||
|
Опытный  Профиль Группа: Участник Сообщений: 294 Регистрация: 28.1.2011 Репутация: нет Всего: нет |
Здравствуйте у меня есть файл вот такого стиля
Подскажите пожалуйста какой-нибудь код, который будет брать информацию из этого файла и делать массив типа
И это на Дельфях всё надо. |
||||
|
|||||
Загрузка ...
| Данкинг |
|
|||
 Yersinia pestis Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: 11 Всего: 130 |
Что конкретно не получается: открыть файл? Распарсить строку?
-------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| northener |
|
||||
 Эксперт Профиль Группа: Завсегдатай Сообщений: 1361 Регистрация: 2.9.2010 Репутация: 12 Всего: 20 |
Не понятен "стиль" файла, ибо непонятно как термин "стиль" вы понимаете.
А тут не понятно что вы имеете в виду под "массивовами типа". Это сообщение отредактировал(а) northener - 23.1.2013, 00:12 -------------------- Но только лошади летают вдохновенно. Иначе лошади разбились бы мгновенно! |
||||
|
|||||
| Serious2008 |
|
||||
|
Опытный Профиль Группа: Участник Сообщений: 294 Регистрация: 28.1.2011 Репутация: нет Всего: нет |
Это означает что в файле много строк, и в каждой строке задано таким образом ключ для будущего массива:{Это просто разделитель}Значение для этого ключа.
Чтобы я мог по ключу массива например help получать строку, Это справка. т.е. типа writeln(a['help']); выдавало на экран "Это справка". Я уже delphi и pascal года 2-3 не открывал, мозг забыл стандартные команды, а мне нужно эту маленькую функцию реализовать, вот и полез на форум с просьбой |
||||
|
|||||
| northener |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1361 Регистрация: 2.9.2010 Репутация: 12 Всего: 20 |
Класс TStringList вам не поможет?
У этого класса есть свойства Names и Values.
Это "отмазка". Пока забудем её. -------------------- Но только лошади летают вдохновенно. Иначе лошади разбились бы мгновенно! |
|||
|
||||
| Keeper89 |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: 9 Всего: 58 |
Самый легкий способ следующий:
1) Загружаем файл черед TStringList.LoadFromFile 2) Ставим TStringList.DelimitedText = ':' 2) Ставим TStringList.NameValueSeparator = ':' // (Спасибо Bems, поправил ;)) 3) Вызываем TStringList.Values['help'] Это сообщение отредактировал(а) Keeper89 - 25.1.2013, 02:03 |
|||
|
||||
| bems |
|
|||
 Эксперт Профиль Группа: Комодератор Сообщений: 3400 Регистрация: 5.1.2006 Репутация: 18 Всего: 88 |
Keeper89, только не DelimitedText = ':' а NameValueSeparator := ':'
Это сообщение отредактировал(а) bems - 23.1.2013, 06:08 -------------------- Обижено школьников: 8 |
|||
|
||||
| Serious2008 |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 294 Регистрация: 28.1.2011 Репутация: нет Всего: нет |
Спасибо вот это как то что надо. Отлично курсач почти готов. |
|||
|
||||
|
|
| Правила форума "Delphi: Для новичков" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Для новичков | Следующая тема » |
[ Время генерации скрипта: 0.0987 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |