INI

← →
9899100 (2008-06-07 17:55) [0]

Подскажите плииз
есть ini файл:
...
[section]
privet

....

Пытаюсь прочитать эту секцию ini.ReadSectionValues("section",lst);
а lst в итоге пустой :(
как только к privet добавляю =1
то все читается

подскажите как прочитать эту секцию если там не стоит =

← →
Поросенок Винни-Пух © (2008-06-07 17:57) [1]

нет валуез - не надо удивляться, что ридвалуез пустой.

← →
Германн © (2008-06-07 17:58) [2]

> подскажите как прочитать эту секцию если там не стоит =
>

Тогда это не INI-файл.

← →
Тын-Дын © (2008-06-07 19:59) [3]

> 9899100 (07.06.08 17:55)

Используй TStringList.

← →
Amoeba © (2008-06-08 00:23) [4]

> 9899100 (07.06.08 17:55)

А справку прочесть, прежде чем лезть на форум, религия не позволяет?

← →
9899100 (2008-06-09 09:13) [5]

> Amoeba

а ты думаеш я не читал спраку??
потомуто и спрашиваю, как ЕЩЕ можно прочитать секцию
> Германн

ну ты практически прав, это не совсем INI это INF
:)

← →
Anatoly Podgoretsky © (2008-06-09 09:18) [6]

Ну и зачем же ты тогда пытаешься читать не ИНИ файла, функциями для ИНИ
Тебе же надо копать в сторону SetupAPI

никак, либо добавь знак =, либо пиши свой парсер

← →
9899100 (2008-06-09 09:33) [8]

> Anatoly Podgoretsky

а вдруг %) структура то похожа, и там есть некоторые секции у которых структура INI

> Palladin

Судя по всему придется так и сделать
:(
жаль не хотелось изобретать велосипеда

Прочитать строки там, где они и лежат:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private FMemIniFule: TMemIniFile; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var sl: TStringList; begin FMemIniFule := TMemIniFile.Create("x.ini"); sl := TStringList.Create; try sl.Add("[section]"); sl.Add("privet"); FMemIniFule.SetStrings(sl); finally sl.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); var sections, sectionStrings: TStrings; idx: integer; begin sections := TStringList.Create; try Memo1.Clear; FMemIniFule.ReadSections(sections); idx := sections.IndexOf("section"); if idx > 1 then begin sectionStrings := TStrings(sections.Objects[idx]); // именно здесь «спрянаны» исхожные строки Memo1.Lines.Assign(sectionStrings); end; finally sections.Free; end; end; end.

INI Найти похожие ветки