Avatar billede topsite Nybegynder
11. marts 2002 - 17:32 Der 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.
Avatar billede dkn Nybegynder
11. marts 2002 - 17:43 #1
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;
Avatar billede topsite Nybegynder
11. marts 2002 - 19:59 #2
Så skriver den failed to create ket \test
Avatar billede topsite Nybegynder
11. marts 2002 - 19:59 #3
ket=key
Avatar billede topsite Nybegynder
11. marts 2002 - 20:02 #4
Ændrede \test til \software\netdex
nu virker det tak.
Avatar billede dkn Nybegynder
11. marts 2002 - 20:02 #5
Registry.Createkey('\test\');
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel