*.ini datei überschreibt sich immer selbest

[herrentor]

also an den leerzeichen liegt es nicht.

Delphi-Quellcode:

procedure Taendern.aendern_bClick(Sender: TObject);
var Ini: TIniFile;

begin

 if isAdmin=true then
 begin

 while MessageDlg('Möchten Sie das Menü jetzt ändern?', mtConfirmation, [mbYes, mbNo], 0) = mrYes do
  begin


 Ini:=TIniFile.Create('C:\Schichtbuch\Schichtbuch.ini');

 try

  schichtbuch.Einstellungenspeichen1.Click;

  case combo_aendern.ItemIndex of
  0:  begin
       schichtbuch.anlage.Items.text:=memo1.Text;
       schichtbuch.Label2.Caption:=edit1.text;
       combo_aendern.Items[0]:=edit1.Text;
       checkbox1.Caption:=edit1.text;
      end;
  1:  begin
       schichtbuch.arbeitcorner.Items.text:=memo1.Text;
       schichtbuch.Label3.Caption:=edit1.text;
       combo_aendern.Items[1]:=edit1.Text;
       checkbox2.Caption:=edit1.text;
      end;
  2:  begin
       schichtbuch.art.Items.text:=memo1.Text;
       schichtbuch.Label4.Caption:=edit1.text;
       combo_aendern.Items[2]:=edit1.Text;
       checkbox3.Caption:=edit1.text;
      end;
  3:  begin
       schichtbuch.kran.Items.text:=memo1.Text;
       schichtbuch.Label5.Caption:=edit1.text;
       combo_aendern.Items[3]:=edit1.Text;
       checkbox4.Caption:=edit1.text;
    if checkbox4.checked=true then
    Ini.WriteBool('Krananlage ändern','Krananlage 4',false);
    if checkbox5.checked=true then
    Ini.WriteBool('Krananlageändern','Krananlage 5',false);
    if checkbox6.checked=true  then
    Ini.WriteBool('Krananlage ändern','Krananlage 6',false);
    if checkbox7.checked=true then
    Ini.WriteBool('Krananlage ändern','Krananlage 7',false);
    if checkbox8.checked=true then
    Ini.WriteBool('Krananlage ändern','Krananlage 8',false);
    if checkbox9.checked=true then
    Ini.WriteBool('Krananlage ändern','Krananlage 9',false);

    if checkbox4.checked=false then
    Ini.WriteBool('Krananlage ändern','Krananlage 4',true);
    if checkbox5.checked=false then
    Ini.WriteBool('Krananlage ändern','Krananlage 5',true);
    if checkbox6.checked=false then
    Ini.WriteBool('Krananlage ändern','Krananlage 6',true);
    if checkbox7.checked=false then
    Ini.WriteBool('Krananlage ändern','Krananlage 7',true);
    if checkbox8.checked=false then
    Ini.WriteBool('Krananlage ändern','Krananlage 8',true);
    if checkbox9.checked=false then
    Ini.WriteBool('Krananlage ändern','Krananlage 9',true);
      end;
  4:  begin
       schichtbuch.transport.Items.text:=memo1.Text;
       schichtbuch.Label6.Caption:=edit1.text;
       combo_aendern.Items[4]:=edit1.Text;
       checkbox5.Caption:=edit1.text;
       if checkbox4.checked=true then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 4',false);
    if checkbox5.checked=true then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 5',false);
    if checkbox6.checked=true then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 6',false);
    if checkbox7.checked=true then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 7',false);
    if checkbox8.checked=true then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 8',false);
    if checkbox9.checked=true then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 9',false);

    if checkbox4.checked=false then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 4',true);
    if checkbox5.checked=false then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 5',true);
    if checkbox6.checked=false then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 6',true);
    if checkbox7.checked=false then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 7',true);
    if checkbox8.checked=false then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 8',true);
    if checkbox9.checked=false then
    Ini.WriteBool('Transportsystem ändern','Transportsystem 9',true);
      end;
  5:  begin
       schichtbuch.schrauber.Items.text:=memo1.Text;
       schichtbuch.Label7.Caption:=edit1.text;
       combo_aendern.Items[5]:=edit1.Text;
       checkbox6.Caption:=edit1.text;
       if checkbox4.checked=true then
    Ini.WriteBool('Schrauber ändern','Schrauber 4',false);
    if checkbox5.checked=true then
    Ini.WriteBool('Schrauber ändern','Schrauber 5',false);
    if checkbox6.checked=true then
    Ini.WriteBool('Schrauber ändern','Schrauber 6',false);
    if checkbox7.checked=true then
    Ini.WriteBool('Schrauber ändern','Schrauber 7',false);
    if checkbox8.checked=true then
    Ini.WriteBool('Schrauber ändern','Schrauber 8',false);
    if checkbox9.checked=true then
    Ini.WriteBool('Schrauber ändern','Schrauber 9',false);

    if checkbox4.checked=false then
    Ini.WriteBool('Schrauber ändern','Schrauber 4',true);
    if checkbox5.checked=false then
    Ini.WriteBool('Schrauber ändern','Schrauber 5',true);
    if checkbox6.checked=false then
    Ini.WriteBool('Schrauber ändern','Schrauber 6',true);
    if checkbox7.checked=false then
    Ini.WriteBool('Schrauber ändern','Schrauber 7',true);
    if checkbox8.checked=false then
    Ini.WriteBool('Schrauber ändern','Schrauber 8',true);
    if checkbox9.checked=false then
    Ini.WriteBool('Schrauber ändern','Schrauber 9',true);
      end;
  end;
  finally
    Ini.Free;
  end;
  edit1.text:='';
  memo1.clear;
  combo_aendern.ItemIndex:=-1;
  schliessen_a.Click;
  exit;
  end;;
 end else showmessage('Sie benötigen Administratorenrechte!');
end;