[mrsiemens]

Hi,

da ich hier ausm Forum ein wenig brauchbaren Code gefunden habe, wollte ich mal fix was geben, was vielleicht nützlich sein kann.

Da ich immer keinen Bock hatte für jedes Programm eigene Routinen zu schreiben, nur um ein paar kleine Daten in einer Config abzulegen, habe ich das ganze mal in eine Klasse gepackt.

TPreferences

am besten man erzeugt eine extra Unit, legt darin eine globale Variable an, so dass die Einstellungen programmweit gültig sind.
Das ganze ähnelt einer INI, man hat einen Block und in jedem Block können beliebige Werte ( TVaraint) abgelegt werden.

Wenn eine Variable angelegt wird - bspw: Preferences['Kategorie', 'Variablenname'] := 4; dann wird der Wert als Default eingetragen und kann später mittels SetDefault wieder zurückgestellt werden.

Laden und Speichern ist klar, gespeichert wird im XML-Format.

markieren

Code:

unit Global_Prefs;

interface

uses XMLPrefs;

var
  Preferences: TPreferences;

implementation

initialization
  Preferences := TPreferences.Create;
  Preferences['Block1', 'String1'] := 'defaultwert';
  Preferences['Block1', 'Integer'] := 4;  
  Preferences['', 'Ohne_Block'] := false;  
finalization
  Preferences.Free;
end.

Wenn Fragen sind, am besten mailen, da ich nicht genau weis wie oft ich hier reinschauen werd'...