ComboBox + edits speichern

[bitsetter]

Hi,

eine Möglichkeit wäre mit Hilfe von WriteComponent und ReadComponent diese ganzen Komponenten zu speichern.
Dafür habe ich mal das onShow und das onClose Event des Formulars benutzt.
Normalerweise speichert man die Einstellungen ja im AppData Verzeichnis. Aber das soll ja nur eine Demo sein.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  FileStream: TFileStream;
  Pfad: AnsiString;
  loop: integer;
begin
  Pfad:= extractfilepath(Application.ExeName)+ 'Einstellungen.txt';
  if FileExists(Pfad) then
  begin
    FileStream:= TFileStream.Create(Pfad, fmOpenRead);
    try
      for loop := 0 to pred(ComponentCount) do
        if (Components[loop] is TCombobox) or (Components[loop] is TEdit) then
          FileStream.ReadComponent(Components[loop]);
    finally
      FileStream.Free;
    end;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  FileStream: TFileStream;
  loop: integer;
begin
  FileStream:= TFileStream.Create(extractfilepath(Application.ExeName)+ 'Einstellungen.txt', fmCreate);
  try
    for loop := 0 to pred(ComponentCount) do
      if (Components[loop] is TCombobox) or (Components[loop] is TEdit) then
        FileStream.WriteComponent(Components[loop]);
  finally
    FileStream.Free;
  end;
end;