einfache Sache (Registry) aber ich kriegs net hin :(

[MeaChrome]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
testab, hallo: string;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('Software\test');
reg.ReadString('testab');
reg.Free;
if testab = hallo then
CheckBox1.Checked:=true;
end;

Problem ist die CheckBox ist nun immer checked auch wenn es den Wert überhaupt nicht gibt.
Wer kann mir helfen?

[alcaeus]

Hi MeaChrome,

versuch mal

Delphi-Quellcode:

testab := Reg.ReadString('testab')

zu schreiben.

Greetz
alcaeus

[add]Außerdem ist die Variable hallo nicht initialisiert, also ist das Ergebnis nicht sicher.[/add]

[Luckie]

Es fehlt außerdem der Ressourcenschutzblock und OpenKey liefert einen Funktionwert zurück, den man überprüfen kann. ;)

[ipworks]

Versuch's mal mit

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
var 
reg: TRegistry; 
testab, hallo: string; 
begin 
  hallo:='Hallo';
  try
    reg:=TRegistry.Create; 
    reg.RootKey:=HKEY_LOCAL_MACHINE; 
    reg.OpenKeyReadOnly('Software\test'); 
    testab:=reg.ReadString('testab'); 
  finally
    reg:=nil; 
    reg.Free; 
  end; 
  if testab = hallo then CheckBox1.Checked:=true; 
end;

[Pseudemys Nelsoni]

und wozu das "reg := nil" ?

[alcaeus]

Hi ipworks,

Zitat:

Zitat von ipworks

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
    reg:=nil; 
    reg.Free;

bedenke dass Free nichts macht, falls reg nil ist. Die Aufrufe müssen in umgekehrter Reihenfolge sein.

Greetz
alcaeus

[Luckie]

Immer noch schlecht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
var 
reg: TRegistry; 
testab, hallo: string; 
begin 
  hallo:='Hallo'; 
  reg:=TRegistry.Create; 
  try 
    reg.RootKey:=HKEY_LOCAL_MACHINE; 
    if reg.OpenKeyReadOnly('Software\test') then
    begin
      testab:=reg.ReadString('testab'); 
      reg.CloseKey;
    end
    else
      ShowMessage('Schlüssel konnte nicht geöffnet werden');
  finally 
    FreeAndNil(reg);
  end; 
  if testab = hallo then CheckBox1.Checked:=true; 
end;

Und warum wird kein Boolean gespeichert in der Registry, um die Checkbox gleich damit zu setzten?

[ipworks]

Nachtrag:

Delphi-Quellcode:

reg:=nil;

ist nicht zwingend.

[MeaChrome]

Danke für die schnellen Antworten!
Es funktioniert nun..

[Pseudemys Nelsoni]

Zitat:

Zitat von ipworks

Nachtrag:

Delphi-Quellcode:

reg:=nil;

ist nicht zwingend.

um nicht zu sagen unnütz 8)