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.
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'...