| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
получение имен в TStringList
Алексей К. © (2008-04-19 17:27:00)вобщем решил сам написать модуль для работы с Inf-файлами, но тут трабла небольшая.
вобщем хочу сделать вот что:
каждая секция будет в отдельной структуре
type InfSection = record
Name: string;
Items: TStringList;
end;
соответственно в Items будут добавляться строки из файла...
но.
для тестирования написал такой код:
...
var
myparams: TStringList;
I: Integer;
begin
myparams := TStringList.Create;
myparams.Clear;
myparams.Add('someparam=4');
myparams.Add('someParam2=555');
myparams.Add('emptyparam');
for I := 0 to myparams.Count - 1 do
memo1.Lines.Add(myparams.Names[i]);
в myparams добавляю строки, но при получении имен, 'emptyparam' не выводится, похоже изза того, что после него нет знака '=', так вот. как мне это обойти? т.е. нужно получить все параметры, независимо, есть-ли знак '=' или нет.
если этого можно добиться средствами StringList, то как? если нет, то прийдется, наверное, свое подобие StringList создавать..
Зарание спасибо!
Алексей К. (2008-04-19 21:28:00) [1]to sniknik
Спасибо!
{RASkov} (2008-04-19 20:35:00) [2]> [3] Kolan © (19.04.08 20:14)
> А что такое Inf файл?
Infормационный файл :)
http://www.oszone.net/3827/
Kolan (2008-04-19 20:14:00) [3]А что такое Inf файл? И чем не угодил ИНИ?
sniknik (2008-04-19 19:12:00) [4]> for I := 0 to myparams.Count - 1 do
> memo1.Lines.Add(myparams.Names[i]);
s: string;
...
for I := 0 to myparams.Count - 1 do begin
s:= myparams.Names[i];
if s = '' then s:= myparams.strings[i]
memo1.Lines.Add(s);
end;
Anatoly Podgoretsky (2008-04-19 17:46:00) [5]> Алексей К. (19.04.2008 17:27:00) [0]
Ты опять пытаешься работать как с ИНИ файлом, а не надо
Ини файл
[секция]
Параметр=Значение
То есть знак равно обязателен.
После того как ты закачал в TStringList, ты должен работать с данным последовательно, от начала секции до следующей секции и у тебя нет параметров, а есть просто строки, некоторые из них похожи на параметры.
| |
