VPF::Как прочитать данные с ini файла

KgCoder

Дата 15.1.2009, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Пробую прочитать файл следующего формата:

Код


[INFO1]
Text1

[INFO2]
Text2
SomeAdditionalText

[INFO]
Multiple line text
Multiple line text
Multiple line text
Multiple line text
Multiple line text
!@*736891*)(&%(#*

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  IniF: TIniFile;
begin
  if ComboBox1.Text <> '' then
  begin
    IniF.Create('data\'+ComboBox1.Text);
    IniF.ReadSection('INFO', Memo2.Lines);
    IniF.ReadSection('INFO2', Memo1.Lines);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  SearchRec:TSearchRec;
begin
  if FindFirst('data\*.ini', faAnyFile, SearchRec) = 0 then
  repeat
    ComboBox1.Items.Add(SearchRec.name);
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;
end.

Не получается, как сделать?

Romikgy

Дата 15.1.2009, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

Цитата(KgCoder @ 15.1.2009, 15:29

)

IniF.Create('data\'+ComboBox1.Text);

Код


IniF:=TIniFile.Create('

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

KgCoder

Дата 15.1.2009, 18:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 6.3.2008
Где: KGstan

Репутация: нет
Всего: нет

Текст не загружается....

Romikgy

Дата 15.1.2009, 18:40 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146

первое формат ини файла не правилен нет знака "="
второе путь к ини файлу надо указывать полный , ибо по умолчанию он отталкивается от папки с виндой!

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

aktuba

Дата 16.1.2009, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38

Вообще-то, это не ini-файл. Придется самому парсер писать под этот формат.

--------------------

Данкинг

Дата 16.1.2009, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(aktuba @ 16.1.2009, 00:10)

Вообще-то, это не ini-файл. Придется самому парсер писать под этот формат.

Действительно. Грузи в TStringList - и вперёд! smile

--------------------

There's nothing left but silent epitaphs.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »