Registry Werte beim starten auslesen klappt nicht

[Helpliner]

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]

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]

hoi,

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

[Helpliner]

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]

@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]

@mathias, jo stimmt, sieht schon besser aus

[Helpliner]

Stimm, wenn ich so drüber nachdenke ist false völlig ausreichend.

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]

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]

Zitat von Phoenix:

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]

Aber anscheinend ja nicht 100%ig sauber, sonst hätte es das

Zitat von teebee:

merkwürdigen Programmverhaltens.

ja nicht gegeben.