[kingflo]

Eine Unit, damit Sie Ihre Einstellungen usw leicht Speichern und Laden können.

nichts besonderes, aber ich brauche das mal, und habe mir eine kleine Unit gebastelt, da ich es teilweise noch für einige kleine Projekte gebrauchen kann.

Also es funktioniert ganz leicht.

Ihr bindet die Unit in Eure Uses klausel ein.

Anschließend benutzt ihr

SaveAllToFile(Directory); // Speichert alle Formulare, Komponenten und Attribute
LoadAllFromFile(Directory); // Lädt alle Formulare, Komponenten und Attribute

an der Stelle, wo Sie Ihre einstellungen Speichern, bzw Laden möchten.

als Parameter muss ein Verzeichniss mitgegeben werden aber ohne \ am ende.
Falls dieses Verzeichnis nicht existiert, wird es beim Speichern angelegt.

Ja also mehr gibts dazu eigentlich nicht zu sagen. Aber ich dachte Vielleicht kann es ja jemand gebrauchen.


Aufruf Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

uses SaveApplicationSettings;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveAllToFile('C:\test');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  LoadAllFromFile('C:\test');
end;