11. marts 2002 - 17:32Der er
3 kommentarer og 2 løsninger
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.
procedure TMainForm.Button1Click(Sender: TObject); var Registry: TRegistry; begin Registry:=TRegistry.Create; Registry.RootKey:=HKEY_LOCAL_MACHINE; Registry.Createkey('\test'); Registry.OpenKey('test',True); 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.keyexists('\test') then Registry.OpenKey('\test',True); Edit1.Text := Registry.ReadString('EditFelt'); CheckBox1.Checked := Registry.ReadBool('CheckBox'); Registry.Free; end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.