AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Programmoptionen für Faule
Thema durchsuchen
Ansicht
Themen-Optionen

Programmoptionen für Faule

Ein Thema von r2c2 · begonnen am 9. Apr 2006 · letzter Beitrag vom 10. Apr 2006
 
r2c2

Registriert seit: 9. Mai 2005
Ort: Nordbaden
925 Beiträge
 
#1

Programmoptionen für Faule

  Alt 9. Apr 2006, 15:22
Hallo DPler

habt ihr nich auch manchmal das Bedürfnis, Programmeinstellungen zu speichern? Jo, denke ich, hat jeder mal gemacht. Nun gibts dafür aber unterschiedliche Möglichkeiten, wie man das realisieren kann. Nur um mal n paar aufzuzählen:
- Typisierte Dateien
- Streams
- Registry
- Ini-Dateien
- StringList
- ...

Irgendwie haben die aber alle den Nachteil, dass man entweder bei den Daten eingeschränkt ist, oder, dass man die selbe Arbeit immer wieder machen muss. Da der (Hobby-)Programmierer im Allgeimeinen faul ist, hab ich mir mit der dpCollection, was gebastelt, was das Speichern von Optionen etwas vereinfacht.

Das Ganze besteht aus 2 Units: Options_class.pas und MyOptions_class.pas. Options_class.pas definiert die Klasse TOptions und MyOptions_class.pas die Klasse TMyOptions. In TMyOptions stehen die Daten, die gespeichert werden sollen als published properties. TOptions definiert Methoden zum speichern und laden.

Benutzung:
1. MyOptions anpassen:
Delphi-Quellcode:
  TMyOptions = class(TComponent)
  private
    { Felder für published properties }
  public
    constructor Create;
    destructor Destroy; override;
  published
    { hier einfach published properties erstellen }
  end;

implementation

constructor TMyOptions.Create;
begin
  inherited Create(nil);
  { hier Objekte(z.B. StringListen) erstellen }
end;

destructor TMyOptions.Destroy;
begin
  { hier erstellte Objekte freigeben }
  inherited Destroy;
end;
2. Optionen speichern:
Delphi-Quellcode:
Options: TOptions;
...
Options := TOptions.Create;
Options.AppDataDir := 'MyProg'; // Legt den Namen für einen Ordner in AppData fest; Wird in AppData gespeichert/daraus geladen, so geschieht das in diesem Unterordner
...

// Werte zuweisen:
Options.Data.Wert1Int := 5;
Options.Data.Wert2Str := 'Hallo DP';
Options.Data.StringList.Text := Memo1.Lines.Text;
...

// Speichern:
Options.SaveToFile('C:\MyOptionsFile.dat'); // speichert an einem bestimmten Pfad
Options.SaveToFile(odExePath, 'MyOptionsFile.dat'); // Speichert im Ordner, in dem die Exe liegt
Options.SaveToFile(odHomeDir, 'MyOptionsFile.dat'); // Speichert in "Dokumente und Einstellungen\<UserName>\Anwendungsdaten\<AppdataDir>\"
Options.SaveToFile(odExeHome, 'C:\MyOptionsFile.dat'); // speichert, wenn möglich, im Ordner der Exe; ansonsten in AppData
Options.SaveToFile(odHomeExe, 'C:\MyOptionsFile.dat'); // speichert, wenn möglich in AppData, ansonsten im Order der Exe
...

//Laden:
Options.LoadFromFile('C:\MyOptionsFile.dat');
Options.LoadFromFile(odExePath, 'MyOptionsFile.dat');
Options.LoadFromFile(odHomeDir, 'MyOptionsFile.dat');
Options.LoadFromFile(odExeHome, 'MyOptionsFile.dat');
Options.LoadFromFile(odHomeExe, 'MyOptionsFile.dat');
...

// Werte benutzen:
SpinEdit1.Value := Options.Data.Wert1Int;
Edit1.Text := Options.Data.Wert2Str;
Memo1.Lines.Text := Options.Data.StringList.Text;

...
Options.Free;
Vorteil:
- Egal, wie viele Werte welchen Datentyps und ob mit der Zeit noch welche dazukommen, der Anpassungsaufwand beschränkt sich darauf, published properties zu erstellen ==> an den Methoden, die speichern/laden muss nix geändert werden.
- Durch den Parameter odExeHome kann man die Einstellungen so speichern, dass sie, wenn möglich, im selben Ordner wie die Exe liegen(sinnvoll, wenn sich das Prog einfach durch löschen deinstallieren lassen soll --> Weitergabe als Archiv) und ansonsten in den Anwendungsdaten(Damits auch keine Progleme mit Usern ohne Admin-Rechte gibt --> Weitergabe als Setup). Und zwar funktioniert das ohne was am code zu ändern oder auch nur neu kompilieren zu müssen. ==> Die selbe exe für Archiv- und Setup-Distribution(siehe hierzu Freeware- und OS-Sparte)...

Bisher getestet unter:
- WinXP Home SP2
- Win2000 Prof. SP4
- Win98 SE

Benötigt wird:
- dpCollection.pas(klick)
- dpCollection_tmpl.pas(klick)
- jedi.inc(klick)

--> jetzt gar nix mehr

Im Anhang:
- Options_class.pas
- MyOptions_class.pas
- BeispielProjekt(Source+Exe)

rfc

Christian
Angehängte Dateien
Dateityp: zip options_test_747.zip (239,2 KB, 70x aufgerufen)
Dateityp: pas myoptions_class_370.pas (552 Bytes, 55x aufgerufen)
Dateityp: pas options_class_649.pas (6,5 KB, 65x aufgerufen)
Kaum macht man's richtig, schon klappts!
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz