Gemme i registreringsdabasen

Så spørsmålet er "hvordan sætter jeg en vilkårlig værdi ind i regdb og hvordan henter jeg den ud".

uses
  Registry;

const
  RegPath = '\Software\MarJensen\Program1';
  RegValue = 'Data';

...

// Data læses fra RegDB
var
  st : string;
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    st := '';
    if Reg.OpenKeyReadOnly(RegPath) then
      if Reg.ValueExists(RegValue) then
        st := Reg.ReadString(RegValue); // alternativt: TekstEdit.Text
  finally
    Reg.Free;
  end;
end;

// Data skrives til RegDB
var
  st : string;
  Reg : TRegistry;
begin
  st := 'Peters hund er blå'; // alternativt: TekstEdit.Text

  Reg := TRegistry.Create;
  try
    if Reg.OpenKey(RegPath,True) then
      Reg.WriteString(RegValue,st);
  finally
    Reg.Free;
  end;
end;

Den lidt mere hardcore løsning hvor man skipper Reg-objektet og kører den via "with"-tingesten. Skriver og læser til TEdit'en TekstEdit.

// Data læses fra RegDB
begin
  with TRegistry.Create do
    try
      TekstEdit.Text := '';
      if OpenKeyReadOnly(RegPath) then
        if ValueExists(RegValue) then
          TekstEdit.Text := ReadString(RegValue);
    finally
      Free;
    end;
end;

// Data skrives til RegDB
begin
  with TRegistry.Create do
    try
      if OpenKey(RegPath,True) then
        WriteString(RegValue,TekstEdit.Text);
    finally
      Free;
    end;
end;

Ahh... hvilke Windåze-platforme er dette kompatibelt?

Ahh. TFormStorage er noget 3'die parts som jeg ikke har set før (har min egen variant). Ovenstående skulle gerne fungere fra og med windows 95. Kigger lidt mere på komponenten.

Nej ikke nødvendigt - dit fungere glimrende - takker.