Как сохранить изменения

← →
random © (2004-04-12 08:36) [0]

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

← →
Digitman © (2004-04-12 08:49) [1]

> Как сохранять эти изменения?

например, не пытаться сохранять настройки в boot-секторе раздела

← →
Yanis © (2004-04-12 08:49) [2]

Ты думаешь если прописал прогу в автозагрузку, то она будет настройки сохранять? Положение окна, шарина, высота и т.д.?

← →
Random © (2004-04-12 09:00) [3]

нет, у меня там менюшка "опции", так вот они и не сохраняются (радиокнопки и.т.д)

← →
Рамиль © (2004-04-12 09:11) [4]

А где ты их сохраняешь?

← →
Random © (2004-04-12 09:18) [5]

Вот в этом-то и вопрос. Где и как их сохранять?

← →
Digitman © (2004-04-12 09:21) [6]

> Random © (12.04.04 09:18) [5]

варианты - в реестре (TRegistry), в ini-файле (TIniFile)

← →
Digitman © (2004-04-12 09:23) [7]

> прописал ее в автозагрузку

а этот комментарий к чему ?

← →
Anatoly Podgoretsky © (2004-04-12 09:37) [8]

А как же, прописал, а она сволочь.

← →
random © (2004-04-12 11:29) [9]

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

← →
Reindeer Moss Eater © (2004-04-12 11:32) [10]

А ты сохраняешь их?

И восстанавливаешь?

Надеюсь поймёшь:
-----------------------Загрузка-------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
WITH TIniFile.Create(ChangeFileExt(
Application.ExeName,".INI")) DO
try
Left := ReadInteger("Main", "Left", 40);
Top := ReadInteger("Main", "Top", 40);
Width := ReadInteger("Main", "Width", 400);
Height := ReadInteger("Main", "Height", 400);
ListBox1.ItemHeight := ReadInteger("Spacing","Vertical",38);
ListBox1.Tag := ReadInteger("Spacing","Horizontal",38);
radiobutton1.Checked:=readBool("rrrrr","sjdhdh",radiobutton1.Checked);
Quiet1.Checked := ReadBool("Options", "Quiet", False);
OpenDialog1.FilterIndex := ReadInteger("Options", "Default file type", 1);
finally
Free;
end;
DragAcceptFiles(Handle, True);
DragAcceptFiles(Application.Handle, True);
Application.OnMessage := application.OnMessage;

end;

------------------------------------------------------------------------------
----------------------------------Сохранение----------------------------------
begin
WITH TIniFile.Create(ChangeFileExt(
Application.ExeName,".INI")) DO
try
IF WindowState = wsNormal THEN
BEGIN
WriteInteger("Main", "Left", Left);
WriteInteger("Main", "Top", Top);
WriteInteger("Main", "Width", Width);
WriteInteger("Main", "Height", Height);
END;
WriteInteger("Spacing","Vertical",ListBox1.ItemHeight);
WriteInteger("Spacing","Horizontal",ListBox1.Tag);
WriteBool("rrrrr","sjdhdh",radiobutton1.Checked);
WriteBool("Options", "Quiet", Quiet1.Checked);
WriteInteger("Options", "Default file type", OpenDialog1.FilterIndex);
finally
Free;
end;

uses: ShellApi, IniFiles ;

Надежнее всего сохранять в реестре, но можно и в .ini ,
но если ты хранишь важную инфу, то лучше ini-файл
закадировать

> Надежнее всего сохранять в реестре

Да... очень надежно.

IniFile - лучший для таких целей.

http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N146

Как сохранить изменения Найти похожие ветки