Показать сообщение отдельно
  #3  
Старый 16.06.2009, 15:16
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Проще работать с 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;
Ответить с цитированием