AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi *.ini datei überschreibt sich immer selbest
Thema durchsuchen
Ansicht
Themen-Optionen

*.ini datei überschreibt sich immer selbest

Ein Thema von herrentor · begonnen am 25. Feb 2005 · letzter Beitrag vom 25. Feb 2005
Antwort Antwort
herrentor

Registriert seit: 29. Mai 2004
Ort: Emden
158 Beiträge
 
#1

Re: *.ini datei überschreibt sich immer selbest

  Alt 25. Feb 2005, 09:06
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;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz