Einzelnen Beitrag anzeigen

strom

Registriert seit: 23. Aug 2008
Ort: Keine Ergebnisse gefunden
290 Beiträge
 
#1

InI-Datei über CheckBox ändern

  Alt 24. Apr 2016, 14:45
InI- Datei wird nicht geändert! Warum?
Delphi-Quellcode:
procedure TForm2.CheckBox1Click(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
 if CheckBox1.Checked = false then
  begin
   filename := ExtractFilePath(ParamStr(0)) + 'Einstellungen.ini';
   ini := TIniFile.Create(filename);
  try
   ini.WriteString('mySQL', 'Autologin', 'true');
  finally
    ini.Free
  end;
  end else
   begin
     filename := ExtractFilePath(ParamStr(0)) + 'Einstellungen.ini';
   ini := TIniFile.Create(filename);
  try
   ini.WriteString('mySQL', 'Autologin', 'false');
  finally
    ini.Free;
  end;
   end;
end;
  Mit Zitat antworten Zitat