Indstilninger og registreringsdatabasen

Exempel på skrivning og læsning fra registrerings data basen:


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Registry, ComCtrls;

type
TForm1 = class(TForm)
  CheckBox1: TCheckBox;
  CheckBox2: TCheckBox;
  CheckBox3: TCheckBox;
  Edit1: TEdit;
  TrackBar1: TTrackBar;
  Edit2: TEdit;
  procedure FormDestroy(Sender: TObject);
  procedure FormCreate(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;
R : TRegistry;
implementation

{$R *.DFM}

procedure TForm1.FormDestroy(Sender: TObject);
begin
R :=TRegistry.Create;
with R do  try
Begin
Rootkey:=HKEY_CURRENT_USER;
CreateKey(\'\\Software\\MySoftware\');
  OpenKey(\'\\Software\\MySoftware\', True);
R.WriteBool(\'CheckBox1\',Checkbox1.Checked);
R.WriteBool(\'CheckBox2\',Checkbox2.Checked);
R.WriteBool(\'CheckBox3\',Checkbox3.Checked);
R.WriteString(\'Edit1\',Edit1.Text);
R.WriteString(\'Edit2\',Edit2.Text);
R.WriteInteger(\'TrackBar1\',Trackbar1.Position);
R.CloseKey;
end;
  finally
R.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
R :=TRegistry.Create;
R.Rootkey:=HKEY_CURRENT_USER;
with R do try
if keyexists(\'\\Software\\MySoftware\') = false then
showmessage(\'no data saved yet\')
else  begin
CreateKey(\'\\Software\\MySoftware\');
OpenKey(\'\\Software\\MySoftware\', True);
Checkbox1.Checked := ReadBool(\'Checkbox1\');
Checkbox2.Checked := ReadBool(\'Checkbox2\');
Checkbox3.Checked := ReadBool(\'Checkbox3\');
Edit1.Text := ReadString(\'Edit1\');
Edit2.Text := ReadString(\'Edit2\');
TrackBar1.Position := ReadInteger(\'TrackBar1\');
R.CloseKey;
end
  finally
R.Free;
  end;
  end;

end.


//Håber at du nu ved hvordan man kan gemme og indlæse ting.

hallo, har du problemmer eller hva????