Registrerings Databasen
Hej delphi-nerds.Jeg sidder og prøver at lærer mig selv delphi, og prøver at lege med en RegDatabase.
Klik på Knappen GEM!!
-------------------------
procedure TMainForm.Button1Click(Sender: TObject);
var
Registry: TRegistry;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
If Registry.OpenKey('test',True) then
begin
Registry.WriteString('EditFelt', Edit1.Text);
Registry.WriteBool('Checkbox', CheckBox1.Checked);
Registry.Free;
end;
end;
Klik på knappen HENT INFO IGEN
-----------------------
procedure TMainForm.Button2Click(Sender: TObject);
var
Registry: TRegistry ;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
If Registry.OpenKey('test',True) then
begin
Edit1.Text := Registry.ReadString('EditFelt');
CheckBox1.Checked := Registry.ReadBool('CheckBox');
Registry.Free;
end;
end;
Så vidt jeg kan se gemmer den ingen ting, og mine Bokse sidder Edit1.Text og CheckBox1...
Håber i kan hjælpe!
post også nogle gode links hvis i har nogle til n00bs.
