Показать сообщение отдельно
  #1  
Старый 12.05.2011, 10:28
Аватар для fofka
fofka fofka вне форума
Начинающий
 
Регистрация: 12.10.2008
Сообщения: 163
Репутация: -1588
Вопрос Коды клавиатуры и сохранение в INI файл

Доброго дня всем.
Первый вопрос. Подскажите коды клавиатуры, конкретно меня интересует клавиша DEL. Везде пишут что код клавиши 46, но почему то у меня не работает.

Второй вопрос про сохранение в INI файл.

Сохраняю так.
Код HTML:
procedure TForm2.WriteParams; var AFile: TextFile; Count, i: Integer; begin AssignFile(AFile, 'C:\Proga\conf.ini'); Rewrite(AFile); WriteLn(AFile, '[-----Result-----]'); Count := ComboBox114.Items.Count; WriteLn(AFile, Format('Records = %d', [Count])); for i := 1 to Count do WriteLn(AFile, Format('Name%d = %s', [i, ComboBox114.Items.Strings[i-1]])); WriteLn(AFile,'Configuration','[-----Anymal-----]',CheckBox43.Checked); CloseFile(AFile);
В INI записывается строка
Configuration[-----Anymal-----]FALSE

Читаю INI так.
Код HTML:
procedure TForm2.ReadParams; var Ini: TIniFile; Count, i: Integer; begin Ini := TIniFile.Create('C:\Proga\conf.ini'); Count := Ini.ReadInteger('-----Result-----', 'Records', 0); for i := 1 to Count do ComboBox114.Items.Add(Ini.ReadString('-----Result-----', 'Name'+IntToStr(i), '')); Ini.Free;
У меня не получается при загрузке вытащить состояние CheckBox43, и ругается на код. Комбобоксы и пишет и читает, а вот с чекбоксом затык получается.
Код HTML:
CheckBox43.Checked:=IniFile.ReadBool('Configuration','-----Anymal-----', CheckBox43.Checked);
В чем моя ошибка?
Ответить с цитированием