получение имен в TStringList

← →
Алексей К. (2008-04-19 17:27) [0]

вобщем решил сам написать модуль для работы с 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 создавать..

Зарание спасибо!

← →
Anatoly Podgoretsky © (2008-04-19 17:46) [1]

> Алексей К. (19.04.2008 17:27:00) [0]

Ты опять пытаешься работать как с ИНИ файлом, а не надо

Ини файл
[секция]
Параметр=Значение

То есть знак равно обязателен.
После того как ты закачал в TStringList, ты должен работать с данным последовательно, от начала секции до следующей секции и у тебя нет параметров, а есть просто строки, некоторые из них похожи на параметры.

← →
sniknik © (2008-04-19 19:12) [2]

> 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;

← →
Kolan © (2008-04-19 20:14) [3]

А что такое Inf файл? И чем не угодил ИНИ?

← →
Алексей К. (2008-04-19 21:28) [5]

to sniknik
Спасибо!

получение имен в TStringList Найти похожие ветки