AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Registry-Anfänger-Probleme

Ein Thema von flomei · begonnen am 12. Jul 2003 · letzter Beitrag vom 14. Jul 2003
Antwort Antwort
Seite 2 von 2     12   
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#11

Re: Registry-Anfänger-Probleme

  Alt 13. Jul 2003, 11:09
Zitat von Assarbad:
die Cleverlinge bei Borland könnten ja ...
Stimmt, wenn man in die system.pas schaut steht da oft etwas von "Compiler-Magic", sollten die doch für Assigned wirklich auch mal machen.

......

[OT]Test: [/OT]
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von flomei
flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge
 
Delphi 2005 Personal
 
#12

Re: Registry-Anfänger-Probleme

  Alt 14. Jul 2003, 15:24
hm...
Ich hab mich da noch mal rangesetzt und das nochmal neu geschrieben. Rausgekommen ist folgendes:
Delphi-Quellcode:
procedure TMainForm.SaveSettings(Sender: TObject;
  var Action: TCloseAction);
  begin
    if
      CBxSaveSettings.Checked
    then
      begin
        regist := TRegistry.Create;
        try
          regist.RootKey := HKEY_CURRENT_USER;
          regist.OpenKey('Software\flomei\pumpensteuerung\1.0', False);
          regist.WriteInteger('Filled', Counter.Value);
          regist.WriteBool('OnTop an', OnTopChecked);
          regist.WriteBool('SaveSettings an', SaveSettingsChecked);
          regist.CloseKey;
          regist.Free;
        except
          MessageDlg('Es existieren noch keine Registrierungsschlüssel' +#10#13
                    +'Es werden Neue angelegt!', mtInformation, [mbOK], 0);
          regist.RootKey := HKEY_CURRENT_USER;
          regist.CreateKey('Software\flomei\pumpensteuerung\1.0');
          regist.OpenKey('Software\flomei\pumpensteuerung\1.0', False);
          regist.WriteInteger('Filled', Counter.Value);
          regist.WriteBool('OnTop an', OnTopChecked);
          regist.WriteBool('SaveSettings an', SaveSettingsChecked);
          regist.CloseKey;
          regist.Free;
        end;
    end;
end;
Mein Programm beende ich ganz einfach mit:
Delphi-Quellcode:
procedure TMainForm.ImgQuitClick(Sender: TObject);
  begin
    Close;
  end;
Liegt im Beenden vielleicht der Fehler? Ich bin echt nen noob auf dem Gebiet...
Bin für jede Hilfe dankbar!

MfG Florian

[EDIT] Mir ist klar, dass man dies:
Delphi-Quellcode:
regist.CreateKey('Software\flomei\pumpensteuerung\1.0');
          regist.OpenKey('Software\flomei\pumpensteuerung\1.0', False);
auch einfacher machen könnte wenn man True nimmt aber ich find es eleganter [/EDIT]
Florian Meier
... ist raus.
Vielen Dank für die Zeit mit euch!
http://www.flomei.de -- http://www.md5hash.de
  Mit Zitat antworten Zitat
MathiasSimmack
(Gast)

n/a Beiträge
 
#13

Re: Registry-Anfänger-Probleme

  Alt 14. Jul 2003, 15:32
Zitat von flomei:
Ich hab mich da noch mal rangesetzt und das nochmal neu geschrieben. Rausgekommen ist folgendes:
Warum wird´n das immer schlimmer? Den ganzen Quark unter except kannst du dir sparen, wenn du bei OpenKey den zweiten Parameter richtig benutzt. Wenn da nämlich ein TRUE steht, dann heißt das: Schlüssel anlegen, wenn er nicht existiert. Wenn er existiert, wird er auch nicht angelegt sondern nur geöffnet.
  Mit Zitat antworten Zitat
MathiasSimmack
(Gast)

n/a Beiträge
 
#14

Re: Registry-Anfänger-Probleme

  Alt 14. Jul 2003, 15:40
Kurz und schmerzlos:
Delphi-Quellcode:
  regist := TRegistry.Create;
  if(regist <> nil) then
    with regist do try
      RootKey := HKEY_CURRENT_USER;

      if(OpenKey('Software\flomei\pumpensteuerung\1.0',TRUE)) then try
        WriteInteger('Filled',Counter.Value);
        WriteBool('OnTop an',OnTopChecked);
        WriteBool('SaveSettings an',SaveSettingsChecked);
      finally
        CloseKey;
      end;
    finally
      Free;
    end;
Sorry, aber ich muss meinen Beitragszähler ja auch mal hochdrehen.
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#15

Re: Registry-Anfänger-Probleme

  Alt 14. Jul 2003, 15:43
Zitat von MathiasSimmack:
Kurz und schmerzlos:
und elegant

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Gast
(Gast)

n/a Beiträge
 
#16

Re: Registry-Anfänger-Probleme

  Alt 14. Jul 2003, 16:29
Stimmt

BTW: Hatte schon arge Probleme mit WITH ?? DO, da bei einer Exception manchmal der Kontext scheinbar verrutscht. Betraf Delphi 4 Pro. In Delphi 5 ist es mir noch nie aufgefallen. Das nur deshalb, falls jemand anders mal über diese Probleme stolpert
  Mit Zitat antworten Zitat
Benutzerbild von flomei
flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge
 
Delphi 2005 Personal
 
#17

Re: Registry-Anfänger-Probleme

  Alt 14. Jul 2003, 17:16
Zitat von MathiasSimmack:
Warum wird´n das immer schlimmer?
Gute Frage! Ich hab halt noch nen paar Fehler eingebaut
Danke, jetzt geht es aber auch endlich *dreikreuzemach*

MfG Florian
Florian Meier
... ist raus.
Vielen Dank für die Zeit mit euch!
http://www.flomei.de -- http://www.md5hash.de
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


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 23:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz