jeg har prøvet at bruge den artikel som hedder Brug registreringsdatabasen, men jeg kan ikke få det til at virke den kommer med tre fejl.
Build
[Error] Unit1.pas(56): ';' expected but '.' found
[Error] Unit1.pas(60): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
jeg forstå ikke de linjer her.
På den måde kan vi få lov af Delphi, til at bruge Registreringsdatabasen. Nu skal vi lige have puttet nogen funktioner ind i vores to knapper. Først laver vi Gem knappen. Den tager og skriver Edit feltets tekst ind under nøglen "Test", under værdien EditFelt.
Er der nogle som kan hjælpe mig.
Kan du ikke lige paste koden 
Ud fra hvad jeg kan se lige nu er det fordi der er noget i vejen med en af dine "end" i dit program
SkypeR That\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'s ME 
----------------------------------------------
%49%66%20%79%6F%75%27%76%65%20%74%72%61%
6E%73%6C%61%74%65%64%20%
74%68%69%73%2C%20%79%6F%75%20%6D%75%73%
74%20%62%65%20%62% 6F%72%65%64%2E%2E%2E
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry;
type
TForm1 = class(TForm)
Edit1: TEdit;
CheckBox1: TCheckBox;
Gem: TButton;
Hent: TButton;
procedure HentClick(Sender: TObject);
procedure GemClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.HentClick(Sender: TObject);
var
Registry: TRegistry;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_LOCAL_MACHINE;
If Registry.OpenKey('Test',True) then
Edit1.Text := Registry.ReadString('EditFelt');
CheckBox1.Checked := Registry.ReadBool('CheckBox');
Registry.Free;
end;
procedure TForm1.GemClick(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.