DUSettings

DUSettings stellt eine Klasse zur Verfügung, um Einstellungen zu lesen und zu schreiben.

Download hier: DUSettings.pas
Dabei gibt es 2 mögliche Arten von Dateien: INIs und Listen.

INIs:

[Section]
Name=Wert
Name2=Wert2

Listen:

Section.Name=Wert
Section.Name2=Wert2
Section.Untersection.Name3=Wert3

Programmierung mit DUSettings

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Vorgabewerte setzen
  GlobalSettings.PrefInteger[‘Setup.DefAction]:= -1;
  //Dateiname
  GlobalSettings.FileName:= ChangeFileExt(ParamStr(0),.ini);
  GlobalSettings.IniStyle:= false;
  //laden
  GlobalSettings.LoadSettings;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  if GlobalSettings.PrefInteger[‘Setup.DefAction]>1 then
    DoSomething;
end;