Einstellungen speichern und verwalten

[Daniel G]

Ich nutze bei meinem aktuellen Projekt weder Ini's, noch die Registry (iiih..) oder XML:

Meine Eigenschaften - Struktur:

Delphi-Quellcode:

type
  TSetting = record
   DefaultFile: String[254];
   UseDefaultPath: Boolean;
   FirstStart: Boolean;
   Width: Integer;
   Height: Integer;
   Top: Integer;
   Left: Integer;
  end;

Meine Variablen:

Delphi-Quellcode:

type
  TSettingsFile = File of TSetting;

var
 B: TSettingsFile;
 Sets: TSetting;

Meine Speicher - Funktion:

Delphi-Quellcode:

procedure TForm1.WriteProperties;
var
  TempOut, FileName: String;
begin
  FileName := 'C:\Irgendwo\is.dat';
  try                                      
    AssignFile(B, FileName);
    if FileExists(FileName) then
      Reset(B)
    else
      Rewrite(B);

    Write(B, ProgSettings);
  finally
    CloseFile(B);
  end;
end;

Meine Lese - Funktion:

Delphi-Quellcode:

function TForm1.ReadProperties: TSetting;
var
  FileName: String;
  bWasReaded: Boolean;
  Ent: TSetting;
begin
bwasReaded:=false;
  try
    AssignFile(B, SettingsFile);
    if FileExists(SettingsFile) then begin
      Reset(B);
      while not EOF(B) do
      begin
        Read(B, Ent);
        bWasReaded := True;
      end;
    end
    else
      Rewrite(B);
    finally
     CloseFile(B);
   end;

  if not bWasReaded then
  begin
   Ent.DefaultFile := '';
   Ent.UseDefaultPath := false;
   Ent.FirstStart := True;
  end;

  Result := Ent;
end;

(Mag sein, dass die Prozeduren nicht 100-%ig richtig sind, da etwas "zurechgeschnitten')


Sofern vorhanden, werden die Einstellungen im Anwendungsverzeichniss des jew. Users gespeichert. Darauf weise ich ihn hin, damit die Datei bei Bedarf gefunden und gelöscht werden kann.