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?