VPF::INI Файлы - Форум программистов

Victor

Дата 19.2.2004, 12:03 (ссылка)

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

Загрузка ...

Бывалый

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

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

Недавно прочитал статейку про работу с ini файлами. вот:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 ini     :TIniFile;
 i       :Integer;
begin
ini:=ini.Create('test.ini');
i:=0;
i:=ini.ReadInteger('COUNT', 'count', i);
ini.WriteInteger('COUNT', 'count', i+1);
ini.free;
end;

Выдает ошибку Access Violation, а если я пишу в создании формы (OnCreate), то переполнение стека. Что не так то??

<Spawn>

Дата 19.2.2004, 12:17 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Код

ini := TIniFile.Create('test.ini');
...

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Петрович

Дата 19.2.2004, 12:21 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

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

В приведенном коде ошибок нет. Ищи в других закоулках своей программы.

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

Все знать невозможно, но хочется

<Spawn>

Дата 19.2.2004, 12:26 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Цитата

В приведенном коде ошибок нет. Ищи в других закоулках своей программы.

Цитата

procedure TForm1.Button1Click(Sender: TObject);
var
ini :TIniFile;
i :Integer;
begin
ini:= ini.Create('test.ini'); i:=0;
i:=ini.ReadInteger('COUNT', 'count', i);
ini.WriteInteger('COUNT', 'count', i+1);
ini.free;
end;

А это что? А уже подумал, что у меня крыша поехала и я забыл как создавать экземпляр нужного класса, поэтому даже все проверил. Как я и написал перед этим работает только с TIniFile.Create.

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

Victor

Дата 19.2.2004, 12:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

<Spawn> ой, ты прав сенк, терь ещё вопрос по той же теме, вот TIniFile.Create - создает ini файл, А ЕСЛИ он создан то просто дальше с ним работает? Я запустил прогу несколько раз и типа счетчик меняеться т.е он не перезаписывает его

Петрович

Дата 19.2.2004, 19:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

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

Цитата

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

Неее, это у меня крыша поехала.

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

Все знать невозможно, но хочется

Pakshin A. S.

Дата 19.2.2004, 22:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

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

Да... В help'е примерчики валялись...

gray_k

Дата 20.2.2004, 09:45 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

А ЕСЛИ он создан то просто дальше с ним работает? Я запустил прогу несколько раз и типа счетчик меняеться т.е он не перезаписывает его

Ну если ты создашь глобальную переменную, или атрибут класса ini:TIniFile, в OnCreate поропишешь
ini:=TIniFile.Create('test.ini'), в OnDestroy - ini.free, то можешь работать с обектом всегда, пока есть форма.

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

С уважением.
Gray.

Unregistered

Дата 20.2.2004, 09:51 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А в uses добавил Inifiles;

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