Подгрузка переменны

[TUberwer]

Всем привет, я хотел бы спросить.
У меня есть много переменных, типа integer и boolean.
Мне нужно создать процедуры две, одна будет сохранять все значения в файл, а другая из этого файла загружать все значения, и придавать эти значения переменным. Как такое можно сделать?
Думал может сохранять в memo, по строчкам, но как тогда придавать переменным значения с определенной строчки?

[Аватар]

TIniFile и справка по нем

[FleXik]

в uses прописываешь IniFiles

На событие OnCreate формы пишешь такой код:

begin
with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini') do
begin
Form1.Edit1.Text:=ReadString('Settings', 'Login', '');
Form1.Edit2.Text:=ReadString('Settings', 'Password', '');
Free;
end;
end;

На событие OnClose формы пишешь такой код:

begin
with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini') do
begin
WriteString('Settings', 'Login', Form1.Edit1.Text);
WriteString('Settings', 'Password', Form1.Edit2.Text);
Free;
end;
end;

[TUberwer]

Сделал так:

procedure TForm1.FormCreate(Sender: TObject);
begin
//Подгружаем все
with TIniFile.Create('c:\options.ini') do
begin
money := ini.readinteger('values', 'money', money);
hp := ini.readinteger('values', 'hp', money);
happy := ini.readinteger('values', 'happy', money);
old := ini.readinteger('values', 'old', money);
day := ini.readinteger('values', 'day', money);
year := ini.readinteger('values', 'year', money);
resp := ini.readinteger('values', 'resp', money);
eat := ini.readinteger('values', 'eat', money);
month := ini.readinteger('values', 'month', money);
dolg1 := ini.readinteger('values', 'dolg1', money);
dolg2 := ini.readinteger('values', 'dolg2', money);
dolg3 := ini.readinteger('values', 'dolg3', money);
dz := ini.readinteger('values', 'dz', money);
komp := ini.readbool('values', 'komp', false);
internet := ini.readbool('values', 'internet', false);
gun := ini.readbool('values', 'gun', false);
mask := ini.readbool('values', 'mask', false);
dok := ini.readbool('values', 'dok', false);
povar := ini.readbool('values', 'povar',  false);
Free;
end;
end;

При запуске сразу ошибки и выключается

Системная ошибка вылазит:

[eval]

прежде чем шкодить, надо читать, а то навыхватывал куски разные а что к чему - только му

[TUberwer]

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

прежде чем шкодить, надо читать, а то навыхватывал куски разные а что к чему - только му

Да нет, просто я взял, прочитал документацию, создавал переменную ini типа tinifile .
Потом создавал ини файл, все туда подгружал и оттуда выгружал.
Код вроде рабочий(писал сам и не выхватывал нигде..)
Но почему-то была системная ошибка.
Зашел снова в тему, вижу код кто-то написал.
Ну и случайно забыл убрать название переменной ini в начале.
Потом понял это, и сам исправил, просто не успел написать об этом в тему.. Так что код я не выхватывал нигде, и что к чему - знаю

[Аватар]

Выхватывал. ini. откуда взялось?

[TUberwer]

просто я взял, прочитал документацию, создавал переменную ini типа tinifile

Потом увидел как можно сделать с with и dо, ну и я же снова не буду все перепечатывать, каждую переменную, я взял, и скопировал код, который я ранее написал(с ini). Ну и не заметил сразу ошибку.

[ZuBy]

1) создай Ini

ini.readinteger('values', 'dolg1', money);

а почему везде money? это как-то осмысленно?
т.к. третий параметр это число по умолчанию, если не найдется значения в файле

[doktor255]

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

Сделал так:

procedure TForm1.FormCreate(Sender: TObject);
begin
//Подгружаем все
with TIniFile.Create('c:\options.ini') do
begin
money := ini.readinteger('values', 'money', money);

При запуске сразу ошибки и выключается

Сделал неправильно.

procedure TForm1.FormCreate(Sender: TObject);
var ini: TIniFile;
begin
//Подгружаем все
ini := TIniFile.Create('c:\options.ini'); 
money := ini.readinteger('values', 'money', 0); //третий параметр это значение по умолчанию

А ошибка была из за того, что ты объект ini не инициализировал. Хоть и попытался инициализировать сам класс.