Programmoptionen für Faule

[r2c2]

Hallo DPler

habt ihr nich auch manchmal das Bedürfnis, Programmeinstellungen zu speichern? Jo, denke ich, hat jeder mal gemacht. Nun gibts dafür aber unterschiedliche Möglichkeiten, wie man das realisieren kann. Nur um mal n paar aufzuzählen:
- Typisierte Dateien
- Streams
- Registry
- Ini-Dateien
- StringList
- ...

Irgendwie haben die aber alle den Nachteil, dass man entweder bei den Daten eingeschränkt ist, oder, dass man die selbe Arbeit immer wieder machen muss. Da der (Hobby-)Programmierer im Allgeimeinen faul ist, hab ich mir mit der dpCollection, was gebastelt, was das Speichern von Optionen etwas vereinfacht.

Das Ganze besteht aus 2 Units: Options_class.pas und MyOptions_class.pas. Options_class.pas definiert die Klasse TOptions und MyOptions_class.pas die Klasse TMyOptions. In TMyOptions stehen die Daten, die gespeichert werden sollen als published properties. TOptions definiert Methoden zum speichern und laden.

Benutzung:
1. MyOptions anpassen:

Delphi-Quellcode:

  TMyOptions = class(TComponent)
  private
    { Felder für published properties }
  public
    constructor Create;
    destructor Destroy; override;
  published
    { hier einfach published properties erstellen }
  end;

implementation

constructor TMyOptions.Create;
begin
  inherited Create(nil);
  { hier Objekte(z.B. StringListen) erstellen }
end;

destructor TMyOptions.Destroy;
begin
  { hier erstellte Objekte freigeben }
  inherited Destroy;
end;

2. Optionen speichern:

Delphi-Quellcode:

Options: TOptions;
...
Options := TOptions.Create;
Options.AppDataDir := 'MyProg'; // Legt den Namen für einen Ordner in AppData fest; Wird in AppData gespeichert/daraus geladen, so geschieht das in diesem Unterordner
...

// Werte zuweisen:
Options.Data.Wert1Int := 5;
Options.Data.Wert2Str := 'Hallo DP';
Options.Data.StringList.Text := Memo1.Lines.Text;
...

// Speichern:
Options.SaveToFile('C:\MyOptionsFile.dat'); // speichert an einem bestimmten Pfad
Options.SaveToFile(odExePath, 'MyOptionsFile.dat'); // Speichert im Ordner, in dem die Exe liegt
Options.SaveToFile(odHomeDir, 'MyOptionsFile.dat'); // Speichert in "Dokumente und Einstellungen\<UserName>\Anwendungsdaten\<AppdataDir>\"
Options.SaveToFile(odExeHome, 'C:\MyOptionsFile.dat'); // speichert, wenn möglich, im Ordner der Exe; ansonsten in AppData
Options.SaveToFile(odHomeExe, 'C:\MyOptionsFile.dat'); // speichert, wenn möglich in AppData, ansonsten im Order der Exe
...

//Laden:
Options.LoadFromFile('C:\MyOptionsFile.dat'); 
Options.LoadFromFile(odExePath, 'MyOptionsFile.dat'); 
Options.LoadFromFile(odHomeDir, 'MyOptionsFile.dat'); 
Options.LoadFromFile(odExeHome, 'MyOptionsFile.dat'); 
Options.LoadFromFile(odHomeExe, 'MyOptionsFile.dat'); 
...

// Werte benutzen:
SpinEdit1.Value := Options.Data.Wert1Int;
Edit1.Text := Options.Data.Wert2Str;
Memo1.Lines.Text := Options.Data.StringList.Text;

...
Options.Free;

Vorteil:
- Egal, wie viele Werte welchen Datentyps und ob mit der Zeit noch welche dazukommen, der Anpassungsaufwand beschränkt sich darauf, published properties zu erstellen ==> an den Methoden, die speichern/laden muss nix geändert werden.
- Durch den Parameter odExeHome kann man die Einstellungen so speichern, dass sie, wenn möglich, im selben Ordner wie die Exe liegen(sinnvoll, wenn sich das Prog einfach durch löschen deinstallieren lassen soll --> Weitergabe als Archiv) und ansonsten in den Anwendungsdaten(Damits auch keine Progleme mit Usern ohne Admin-Rechte gibt --> Weitergabe als Setup). Und zwar funktioniert das ohne was am code zu ändern oder auch nur neu kompilieren zu müssen. ==> Die selbe exe für Archiv- und Setup-Distribution(siehe hierzu Freeware- und OS-Sparte)...

Bisher getestet unter:
- WinXP Home SP2
- Win2000 Prof. SP4
- Win98 SE

Benötigt wird:
- dpCollection.pas(klick)
- dpCollection_tmpl.pas(klick)
- jedi.inc(klick)
--> jetzt gar nix mehr

Im Anhang:
- Options_class.pas
- MyOptions_class.pas
- BeispielProjekt(Source+Exe)

rfc

Christian