[fofka]

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

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

Сохраняю так.

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 так.

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, и ругается на код. Комбобоксы и пишет и читает, а вот с чекбоксом затык получается.

CheckBox43.Checked:=IniFile.ReadBool('Configuration','-----Anymal-----', CheckBox43.Checked);

В чем моя ошибка?

[Aristarh Dark]

ты бы при записи использовал не текстовый файл а TIniFile - было бы тебе Щастье (с большой боквы Щ).

Код:

Count := ComboBox114.Items.Count;

Убило наповал

[fofka]

Исправим на ини. А 114, добавлял, удалял. В процессе так сказать, окончательный вариант перепишем как нуно.

[Aristarh Dark]

А код клавиши del - VK_DELETE, и, таки да, это 46

[fofka]

Благодарю за советы. Будем работать над ошибками.

[fofka]

Исправил на ini. Может кому и сгодится.

procedure TForm2.WriteParams;
 var
  Ini: TIniFile;
 Count, i: Integer;
begin
 Ini:=TIniFile.Create('C:\Proga\conf.ini');

 ini.WriteInteger('-----Result-----','Records',combobox1.Items.Count);
  for i := 1 to combobox1.Items.Count
 do ini.WriteString('-----Result-----',inttostr(i),combobox1.Items.Strings[i-1]);

  Ini.WriteBool('Configuration','[-----Anymal-----]',CheckBox43.Checked);

Ini.Free;

В ini получаем. То что нужно...

[-----Result-----]
Records=2
1=Вася
2=Петя
[Configuration]
[-----Anymal-----]=0