![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#3
|
|||
|
|||
![]() Проще работать с ini-файлами, напр.:
[Group1] Temperature=22 Ventilation=1500 Пример из Help'а: Код:
procedure TForm1.FormActivate(Sender: TObject); var MyIniFile: TIniFile; begin MyIniFile := TIniFile.Create('myapp.ini'); with MyIniFile do begin if ReadBool('AutoLoad', 'FormProperties', False) = True then begin Visible := ReadBool('FormOptions', 'Visible', True); Color := TColor(ReadInteger('FormOptions', 'Color', clNormalBackground)); Caption := ReadString('FormOptions', 'Caption', 'Main'); end; MyIniFile.Free; end; |