Доброго дня всем.
Первый вопрос. Подскажите коды клавиатуры, конкретно меня интересует клавиша 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);
В чем моя ошибка?