Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

random © (2004-04-12 08:36:00)
Написал прогу, прописал ее в автозагрузку, но вот проблема, эта извините за выражения, сволочь, не сохраняет изменения в настройках, сделанных во время предыдущего сеанса работы. Как сохранять эти изменения?

OlegGashev (2004-05-09 21:52:00) [1]
http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N146

Gero (2004-05-08 11:56:00) [2]

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

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

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

-=Denn=- (2004-05-07 15:53:00) [3]
Надежнее всего сохранять в реестре, но можно и в .ini ,
но если ты хранишь важную инфу, то лучше ini-файл
закадировать

Ivolg (2004-04-12 12:44:00) [4]
Надеюсь поймёшь:
-----------------------Загрузка-------------------------------------------------
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 ;

clickmaker (2004-04-12 11:56:00) [5]
И восстанавливаешь?

Reindeer Moss Eater (2004-04-12 11:32:00) [6]
А ты сохраняешь их?

random (2004-04-12 11:29:00) [7]
мне нужно, чтобы при следующем запуске сохранились настройки, сделанные в предыдущем

Anatoly Podgoretsky (2004-04-12 09:37:00) [8]
А как же, прописал, а она сволочь.

Digitman (2004-04-12 09:23:00) [9]

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

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

Digitman (2004-04-12 09:21:00) [10]

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

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

Random (2004-04-12 09:18:00) [11]
Вот в этом-то и вопрос. Где и как их сохранять?

Рамиль (2004-04-12 09:11:00) [12]
А где ты их сохраняешь?

Random (2004-04-12 09:00:00) [13]
нет, у меня там менюшка "опции", так вот они и не сохраняются (радиокнопки и.т.д)

Digitman (2004-04-12 08:49:00) [14]

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

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

Yanis (2004-04-12 08:49:00) [15]
Ты думаешь если прописал прогу в автозагрузку, то она будет настройки сохранять? Положение окна, шарина, высота и т.д.?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »