Форум: "Начинающим";
Текущий архив: 2008.07.06;
Скачать: [xml.tar.bz2];
Вниз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
← →
Palladin © (2008-06-09 09:20) [7]никак, либо добавь знак =, либо пиши свой парсер
← →
9899100 (2008-06-09 09:33) [8]
> Anatoly Podgoretsky
а вдруг %) структура то похожа, и там есть некоторые секции у которых структура INI
> Palladin
Судя по всему придется так и сделать
:(
жаль не хотелось изобретать велосипеда
← →
ЮЮ © (2008-06-09 09:50) [9]Прочитать строки там, где они и лежат:
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.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.07.06;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.041 c