Не стандартный INI

[moon-guest]

Доброго Всем!!!!
Имеется ini файл с не стандартным форматом секций(менять название секции или ключам не допустимо).

[VALUE
{channel=1}
{color=0}
{x=298}
{y=69}
{align=center}
{text_size=7}
{font_size=1}
]
....
[VALUE
{channel=2}
{color=0}
{x=86}
{y=35}
{align=center}
{text_size=7}
{font_size=1}
]

Создаю его как обычный текстовый файл, но имеется проблема со считыванием...
Считывание данных из секции уже реализовано, НО...

Как всем известно что выборка данных из секции производится из секции процедурой:

procedure ReadSectionValues(const Section: string; Strings: TStrings);

где первый параметр это Имя секции, а второй это контейнер под данные.
И так как у меня название секций по заданию должно быть одинаковым, то эта функция сводится на нет. Она считывает всегда первую секцию и успокаивается...

Перебора по id секции в этом классе не реализована (если мне не изменяет память) ).

Я решил добавить в класс TIniFile пару функций с одноименными именами:

procedure ReadSection(const IdSection: Integer; Strings: TStrings);
procedure ReadSectionValues(const IdSection: Integer; Strings: TStrings);

В оригинальной процедуре ReadSection поиск нужной секции производит функция:

function GetPrivateProfileString(lpAppName, lpKeyName, lpDefault: PChar;
  lpReturnedString: PChar; nSize: DWORD; lpFileName: PChar): DWORD; stdcall;

И сам вопрос чем можно её заменить или может у кого нибудь есть другое видение как считать поэтапно каждую секцию?

[FaTaL]

Это не INI файл. Работай с ним как с обычным текстовым файлом и всё. Или если уж так охото работать через TIniFile, то на время преобразуй этот файл в INI, а потом наоборот.
UPD: В INI преобразовать не получиться, т.к. имена секций будут одинаковые [VALUE], хотя можно имена сейкий брать channel

[moon-guest]

То что это не Ini файл в его нормальном виде, я и сам понимаю. Но функции класса TIniFiles его вполне нормально обрабатывают. Вопрос в другом как перебирать секции с одинаковыми ИМЕНАМИ?!!!!

Менять название секции или ключи не допустимо!!!

[Serge_Bliznykov]

Это не INI файл. Работай с ним как с обычным текстовым файлом и всё.

+1
Это не INI файл. Поэтому с ним нельзя работать методами TINIFiles
Забудьте про INI, пишите свои обработчики и будет Вам Счастье!

[min@y™]

Пиши свой парсер.

[Vapaamies]

Больше на JSON похоже.

[Alex11223]

Да как-то не особо похоже.
http://en.wikipedia.org/wiki/JSON#Da...ax_and_example

[Stilet]

с одинаковыми ИМЕНАМИ?!!!!

Чего кричишь? сказали же - работай с ним как с обычным текстовиком. Не стоит использовать TIniFile в этом случае.

Да как-то не особо похоже.

Верно. Это какая-то самописка.

[min@y™]

Сообщение от Vapaamies

Больше на JSON похоже.

На XML тож смахивает.
Я бы за полчаса-час класс для работы написал.

[moon-guest]

По совету Stilet
Чего кричишь? сказали же - работай с ним как с обычным текстовиком.

Сделал парсер как для обычного текстовика и вставил в функцию:

procedure TIniFile.ReadSectionId(const IdSection: Integer; Strings: TStrings);
var
  _file: TextFile;
  c:char;
  k,v: integer;
  s: string;
begin
  v:=0;
  k:=0;
  s:='';
    Strings.BeginUpdate;
    try
      Strings.Clear;
      AssignFile(_file, FileName);
      Reset(_file);
      while not eof(_file) do begin // пока не конец файла
        if k <> 0 then break;
        read(_file, c);             // читаем из файла по символьно
        if c in ['['] then inc(v); // для поиска начала секции
        if v = IdSection then begin // если нужная секция
          while not eof(_file) do begin  // пока не конец сессии и файла
            k:=-2;
            read(_file, c);
            if (c in ['{']) then   // для поиска {ключ=значение}
              while not eof(_file) do begin // пока не конец секции {ключ=значение} и файла
                k:=-1;
                read(_file, c);
                if not(c in ['}', ']']) then  // не конец секции {ключ=значение} или общей
                  s:=s+c // запоминаем
                else begin  // иначе
                  Strings.Add(s);
                  s:='';
                  k:=1;
                  break;
                end;
              end;
             if (c in [']']) then begin
              k:=2;
              break;
             end;
          end;
        end;
      end;
      if k < 1 then Strings.Clear;
    finally
      Strings.EndUpdate;
      CloseFile(_file);
    end;
end;

Это если кому интересно...