Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Registry Werte beim starten auslesen klappt nicht (https://www.delphipraxis.net/15165-registry-werte-beim-starten-auslesen-klappt-nicht.html)

Helpliner 23. Jan 2004 08:27

Re: Registry Werte beim starten auslesen klappt nicht
 
Ich habs zwar nicht mit try finally sondern etwas verkürzt mit try except gemacht, aber es ist mittlerweile eingebaut.
Das war auch zwingend nötig, weil selbst wenn der Key erstellt wird, existieren ja noch lange keine Werte.

MathiasSimmack 23. Jan 2004 08:32

Re: Registry Werte beim starten auslesen klappt nicht
 
Das habe ich aber nicht gemeint.
Ich spreche davon:
Zitat:

Delphi-Quellcode:
  reg := TRegistry.Create;
  with reg do
  begin
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('Software\Fischmob\Flotteninformationen\0.1 beta', false) then
    begin
      Try
        Edit1.Text := ReadString('Typ 1');
        Edit2.Text := ReadString('Typ 2');
        Edit3.Text := ReadString('Typ 3');
        Edit4.Text := ReadString('Typ 4');
        Edit5.Text := ReadString('Typ 5');
        Edit6.Text := ReadString('Typ 6');
        Edit7.Text := ReadString('Typ 7');
        Edit8.Text := ReadString('Typ 8');
        Edit9.Text := ReadString('Typ 9');
      finally
        CloseKey;
        Free;
      end;
    end;
  end;

Das try/finally wird üblicherweise nach dem Erzeugen des Registry-Objektes benutzt. Wenn du auf Nummer Sicher gehen willst, kannst du auch "OpenKey" noch mal damit einklammern, so wie du es ja auch getan hast.

Pseudemys Nelsoni 23. Jan 2004 08:36

Re: Registry Werte beim starten auslesen klappt nicht
 
hoi,

hoffe du verwechselst mich nicht mit dem topic creator. btw ist was falsch an dem code?

Helpliner 23. Jan 2004 08:46

Re: Registry Werte beim starten auslesen klappt nicht
 
Hmmmm, eventuell habe ich da jetzt ein Verständniss Problem, try --> finally benutzt du dabei doch um Fehler abzufangen falls einer der Werte in dem Registry-Key nicht existiert oder ?

Ich habe das folgendermassen gemacht:

Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
 var reg : TRegistry;
begin
 reg:=TRegistry.Create;
 reg.RootKey:=HKEY_CURRENT_USER;
  try
   reg.OpenKey('Software\Fischmob\Flotteninformationen\0.1 beta', true);
   Edit1.Text := reg.ReadString('Typ 1');
   Edit2.Text := reg.ReadString('Typ 2');
   Edit3.Text := reg.ReadString('Typ 3');
   Edit4.Text := reg.ReadString('Typ 4');
   Edit5.Text := reg.ReadString('Typ 5');
   Edit6.Text := reg.ReadString('Typ 6');
   Edit7.Text := reg.ReadString('Typ 7');
   Edit8.Text := reg.ReadString('Typ 8');
   Edit9.Text := reg.ReadString('Typ 9');
  except
   Edit1.Text := ('0');
   Edit2.Text := ('0');
   Edit3.Text := ('0');
   Edit4.Text := ('0');
   Edit5.Text := ('0');
   Edit6.Text := ('0');
   Edit7.Text := ('0');
   Edit8.Text := ('0');
   Edit9.Text := ('0');
  end;  
 reg.free;
end;
d.h. tritt der Fall auf das die Werte nicht existieren (erster Programmstart), dann fülle ich die Edits mit 0, beim beenden des Programmes werden die Werte dann ja auf jedenfall geschrieben.

Oder verstehe ich jetzt etwas grundsätzlich falsch?

MathiasSimmack 23. Jan 2004 09:10

Re: Registry Werte beim starten auslesen klappt nicht
 
@Pseudemys Nelsoni: Upps, ja stimmt. Ich habe dich verwechselt. Mein Fehler. Aber ich hätte den Code so gestaltet:
Delphi-Quellcode:
reg := TRegistry.Create;

if reg <> nil then
  with reg do
  try
    // eigentlich unnötig, weil Standard -->
    // RootKey := HKEY_CURRENT_USER;

    if OpenKey('Software\Fischmob\Flotteninformationen\0.1 beta',
      false) then
    try
      Edit1.Text := ReadString('Typ 1');
      Edit2.Text := ReadString('Typ 2');
      Edit3.Text := ReadString('Typ 3');
      Edit4.Text := ReadString('Typ 4');
      Edit5.Text := ReadString('Typ 5');
      Edit6.Text := ReadString('Typ 6');
      Edit7.Text := ReadString('Typ 7');
      Edit8.Text := ReadString('Typ 8');
      Edit9.Text := ReadString('Typ 9');
    finally
      CloseKey;
    end;
  finally
    Free;
  end;
Man könnte das Auslesen der Werte und Zuweisen an die Edits auch so machen:
Delphi-Quellcode:
      for i := 1 to 9 do
        if(ValueExists('Typ ' + inttostr(i))) then
        begin
          MyEdit := self.FindComponent('Edit' + inttostr(i));
          if(MyEdit <> nil) then
            (MyEdit as TEdit).Text := ReadString('Typ ' + inttostr(i));
        end;
Auf die gleiche Weise kann man natürlich vor dem Registryzugriff die Edits mit den gewünschten Standardwerten füllen.

@Helpliner: Wenn du die Werte nur lesen willst, halte ich
Zitat:

Code:
reg.OpenKey('Software\Fischmob\Flotteninformationen\0.1 beta', [color=#ff0000]true[/color]);

für überflüssig. false reicht, denn schreibend greifst du ja ohnehin nicht zu. Das machst du sicher später, beim Speichern der Werte, und dann passt es auch.

Pseudemys Nelsoni 23. Jan 2004 09:16

Re: Registry Werte beim starten auslesen klappt nicht
 
@mathias, jo stimmt, sieht schon besser aus

Helpliner 23. Jan 2004 09:24

Re: Registry Werte beim starten auslesen klappt nicht
 
Stimm, wenn ich so drüber nachdenke ist false völlig ausreichend.

Zitat:

Zitat von MathiasSimmack
Delphi-Quellcode:
for i := 1 to 9 do
        if(ValueExists('Typ ' + inttostr(i))) then
        begin
          MyEdit := self.FindComponent('Edit' + inttostr(i));
          if(MyEdit <> nil) then
            (MyEdit as TEdit).Text := ReadString('Typ ' + inttostr(i));
        end;
Auf die gleiche Weise kann man natürlich vor dem Registryzugriff die Edits mit den gewünschten Standardwerten füllen.

So etwas ähnliches habe ich zu Anfang ausprobiert, nur das ich es nicht hinbekommen habe ich habe versucht

Delphi-Quellcode:
  reg.WriteString('Typ 1', Edit1.Text);
  reg.WriteString('Typ 2', Edit2.Text);
  etc.
durch

Delphi-Quellcode:
 var i: Integer;
begin
 i := 1;
  while i <= 9 do begin
   reg.WriteString('Typ' + IntToStr(i)), Edit(i).Text);
  end;
end;
Wobei das ersetzen der Zahl in Editx.Text nicht geklappt hat.
Aber jetzt habe ich ja eine Lösung dafür auf dem Silberteller bekommen die ich sogar noch verstehe *freu*

Phoenix 23. Jan 2004 09:29

Re: Registry Werte beim starten auslesen klappt nicht
 
Zitat:

Zitat von Helpliner
ist das denn Zufall das die Edits.... tja... "langsamer" da sind als das Form.Create oder ist das eine Erstellungsreihenfolge (Erst Form, dann Items auf der Form) ?

Latürnich: Dein Kind kann nicht auf die Welt kommen bevor Du nicht geboren wurdest. -> Du kannst nichts auf einen Tisch stellen (auf einer Form erzeugen) wenn der Tisch noch nicht da steht (das Form noch nicht created wurde).

Zuerst immer der Parent und dann die Child-Controls. Alternativ im OnCreate immer erst ein inherited; und dann erst zuweisungen, denn im inherited werden die childcontrols erzeugt.

teebee 23. Jan 2004 11:39

Re: Registry Werte beim starten auslesen klappt nicht
 
Zitat:

Zitat von Phoenix
Zitat:

Zitat von Helpliner
ist das denn Zufall das die Edits.... tja... "langsamer" da sind als das Form.Create oder ist das eine Erstellungsreihenfolge (Erst Form, dann Items auf der Form) ?

Latürnich: Dein Kind kann nicht auf die Welt kommen bevor Du nicht geboren wurdest. -> Du kannst nichts auf einen Tisch stellen (auf einer Form erzeugen) wenn der Tisch noch nicht da steht (das Form noch nicht created wurde).

Zuerst immer der Parent und dann die Child-Controls. Alternativ im OnCreate immer erst ein inherited; und dann erst zuweisungen, denn im inherited werden die childcontrols erzeugt.

Muss Dir leider widersprechen, in dem Moment, da das OnCreate-Ereignis eines Formulars ausgelöst wird, sind sämtliche Komponenten darauf bereits erzeugt. Sonst hätte es in dem Fall hier auch Schutzverletzungen gehagelt statt eines merkwürdigen Programmverhaltens.

D.h. schon in FormCreate kann man auf alle Koponenten zugreifen, die man selbst aufs Form gepackt hat.

Gruß, teebee

Helpliner 25. Jan 2004 19:33

Re: Registry Werte beim starten auslesen klappt nicht
 
Aber anscheinend ja nicht 100%ig sauber, sonst hätte es das
Zitat:

Zitat von teebee
merkwürdigen Programmverhaltens.

ja nicht gegeben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:48 Uhr.
Seite 2 von 3     12 3      

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