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:
Delphi-Quellcode:
uses SaveApplicationSettings;
procedure TForm1.Button1Click(Sender: TObject);
begin
SaveAllToFile('C:\test');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
LoadAllFromFile('C:\test');
end;