1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

// Es ist sinnvoll den Pfad an einer Stelle möglichst zusammenzusetzen,
// damit man nicht beim Lesen und Schreiben plötzlich einen Tippfehler
// drin hat und sich wundert warum es nicht geht.
function GetSettingsFileName(ARootDir: String): String;
begin
  Result := ARootDir + AppDataRootDir + AppDataProjectDir + '\MySettings.txt';
end;

// Sucht in den 4 Ordnern der Reihe nach und legt den gefundenen
// Dateinamen in AFileName. Der Rückgabewert gibt an, ob eine Datei
// gefunden wurde.
function FindSettingsFile(var AFileName: String): Boolean;
begin
  AFileName := ExtractFilePath(ParamStr(0)) + 'MySettings.txt';
  Result := FileExists(AFileName);
  if Result then
    Exit;
  AFileName := GetSettingsFileName(GetSpecialFolder(CSIDL_LOCAL_APPDATA));
  Result := FileExists(AFileName);
  if Result then
    Exit;
  AFileName := GetSettingsFileName(GetSpecialFolder(CSIDL_APPDATA));
  Result := FileExists(AFileName);
  if Result then
    Exit;
  AFileName := GetSettingsFileName(GetSpecialFolder(CSIDL_COMMON_APPDATA));
  Result := FileExists(AFileName);
  if Result then
    Exit;
  AFileName := ''; // nix gefunden, also leeren String zurückgeben
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Reg: TRegistry;
  Filename: String;
begin
  if FindSettingsFile(Filename) then
    // wenn eine Einstellungsdatei gefunden wurde....
    ...
  else
  begin
    // sonst in der Registry suchen...
    Reg := TRegistry.Create;
    try
      Reg.RootKey := HKEY_CURRENT_USER;
      if Reg.OpenKeyReadOnly('Software' + AppDataRootDir + AppDataProjectDir) then
        ...
      else
      begin
        Reg.RootKey := HKEY_LOCAL_MACHINE;
        if Reg.OpenKeyReadOnly('Software' + AppDataRootDir + AppDataProjectDir) then
          ...
      end;
    finally
      Reg.Free;
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

    procedure LoadFromStream(Data: TStream); override;
    procedure SaveToXml(Ini: IXMLDocument); override;
    procedure LoadFromINI(Ini: TCustomIniFile); override;
    procedure LoadFromRegistry(Reg: TRegistry; ParentPath: String); override;

    procedure SaveToStream(Data: TStream); override;
    procedure LoadFromXml(Ini: IXMLDocument); override;
    procedure SaveToINI(Ini: TCustomIniFile); override;
    procedure SaveToRegistry(Reg: TRegistry; ParentPath: String); override;

    procedure RunConfigWizard; override;
    procedure ApplyStandardSettings; override;
    procedure GetProgramInfo(var Author, ProductName, ProductVersion: string); override;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

  TfrmMain = class(TForm)
  ...
  public
    { Public declarations }
    Config: TAppConfig;
  end;

...

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Config := TAppConfig.Create;
  edtUserName.Text := Config.UserName;
  ...
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  Config.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

  TAppConfig = class(TAppConfigManager)
  private
  ...
  protected
  ...

implementation

procedure TAppConfig.RunConfigWizard;
begin
  frmConfigWizard := TfrmConfigWizard.Create(nil); // Wizard für die Einstellungen anzeigen
  frmConfigWizard.ShowModal(Self);
end;

procedure TAppConfig.ApplyStandardSettings;
begin
  fUserName := 'Standardname'; 
end;

procedure TAppConfig.GetProgramInfo(var Author, ProductName,
  ProductVersion: string);
begin
  Author := 'Sebastian Jänicke';
  ProductName := 'SJ Config Utils Demo';
  ProductVersion := '1.0';
end;

procedure TAppConfig.LoadFromXml(Ini: IXMLDocument);
begin
  if AccessManager.InitReadLocation('Userinfo', sIniSectionOpenError) then
  begin
    fUserName := AccessManager.ReadString('Username', sIniValueNotFound);
  end;
end;

procedure TAppConfig.SaveToXml(Ini: IXMLDocument);
begin
  if AccessManager.InitWriteLocation('Userinfo', sIniSectionOpenError) then
  begin
    AccessManager.WriteString('Username', fUserName);
  end;
end;