TIniFile und DeleteKey

[marabu]

Hallo Holger,

ich habe deinen Code etwas überarbeitet und alle Hinweise berücksichtigt. Jede Änderung hat ihren speziellen Grund und ist es wert, dass du darüber nachdenkst.

Delphi-Quellcode:

uses
  IniFiles;

const
  INI_NAME = 'Settings.ini';
  PROPS_SECTION = 'Properties';

procedure TDemoForm.btnDeleteClick(Sender: TObject);
var
  i: Integer;
  fn: TFileName;
  ini: TMemIniFile;
begin
  fn := ExtractFilePath(Application.ExeName) + INI_NAME;
  ini := TMemIniFile.Create(fn);
  with lbKeys do
  begin
    Items.BeginUpdate;
    for i := Pred(Items.Count) downto 0 do
      if Selected[i] then
      begin
        ini.DeleteKey(PROPS_SECTION, lbKeys.Items[i]);
        Items.Delete(i);
      end;
    Items.EndUpdate;
  end;
  ini.UpdateFile;
  ini.Free;
end;

Getippt und nicht getestet.

Gute Nacht

marabu