[AlexandrV]

Можно ли както из ини загрузить все секции. Не то что в секциях а имена секций и имена ключей. помогите а то не могу найти.

[M.A.D.M.A.N.]

Код:

ini.readsection

Был уже такой вопрос

[AlexandrV]

Мне надо считать имена секций просто какбы сказать предположим что я незнаю название секции и мне надо програмно узнать имена всех секций и ключей но не значений

[M.A.D.M.A.N.]

Поищи в модуле, там есть чето типа EnumerateSections

[AlexandrV]

Интересно а коментарии понимает ини или нет. Просто из ини мне нужно считывать коментарии такие коментарии.

Код:

//
{}
(**)

тоесть все кометарии что в делфи

[M.A.D.M.A.N.]

Вроде не понимает.
Он просто бежит по файлу, ему пофиг что там, для определения значения он на "=" ориентируется.

[angvelem]

Не понимает без всяких вроде. Всё что выходит за рамки дозволенного придётся читать напрямую.

[AlexandrV]

помоему я и так начел использовать ReadSection

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'LibxEdit.ini');
  Ini.ReadSections(ListBox2.Items);
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
  Ini.ReadSection(ListBox2.Items.Strings[listbox2.itemindex],ListBox1.Items);
end;

[Alegun]

Парсить вручную, однозначно.

[alexusankov]

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

Можно ли както из ини загрузить все секции. Не то что в секциях а имена секций и имена ключей. помогите а то не могу найти.

А куда вы их хотите грузить? Точнее говоря - в каком виде вы их хотите видеть в итоге?
Я так понимаю, что если есть *.ini :

[public]
one=1
two=2
three=3

[private]
five=5

то в итоге вы хотите увидеть массив вида :

m[1] = public:one
m[2] = public:two
m[3] = public:three
m[4] = private:five

Т.е. имя секции, и имя параметра, через разделитель, чтобы понимать к какой секции относится тот, или иной параметр? В данном случае поможет велосипед :

Код:

procedure MyForm.ReadMyIni();
var
  F : TextFile;
  i : Integer;
  S,Header,Value : String;
begin
  Header := "";
  AssignFile(F,'c:\config.ini');
  Reset(F);
  while NOT EoF(F) do begin
    ReadLn(F,S);
    if (Pos('[',S) <> 0) AND (Pos(']',S) <> 0) then begin
      Header := Copy(S,2,Length(S) - 2);
      ReadLn(F,S);
    end;
    if (Pos('=',S) <> 0) AND (Header <> "") then begin 
      Value := Copy(S,1,Pos('=',S) - 1);
      ListBox1.Items.Add(Header + ' : ' + Value);
    end;
  end;
  CloseFile(F);
end;

Это будет работать с любым ini не содержащим ошибок, когда секции заключены в [].

[AlexandrV]

Как проверить существует ли секция не считывая ее. В ини храниться русский и английский перевод. Каждый перевод в каждой секции. Надо проверить если секция есть то делаем кнопку для перевода активной. Еслиже нет то неактивной

[M.A.D.M.A.N.]

Сложно внутри inifiles.pas посидеть поразбираться самому?

DELETED MESSAGE

DELETED MESSAGE

[Facepalm]

Опа, нежданчик!