Gemme Memo indhold i fil (sammen med andet)

unit test;

uses
  Forms,
  JvSimpleXml,
  JclSimpleXml;

type
  TSaveData = class
    constructor Create(AOwner: TForm);
    destructor Destroy; override;
  private
    FForm: TForm;
    FXml: TJvSimpleXML;
    FSaveData: TJclSimpleXMLElem;
    function GetString(AItem: String): String;
    procedure SetValue(AItem: string; AValue: Variant);
  public
    // Loading/Saving
    procedure Load;
    procedure Save;
  end;

implementation

uses
  SysUtils,
  Classes,
  Variants;

constructor TSaveData.Create(AOwner: TForm);
begin
  Assert(Assigned(AOwner), 'TSaveData needs to be assigned a form owner');
  FForm := TForm(AOwner);

  if not (FileExists(ExtractFilePath(Application.ExeName)+'savedata.xml')) then
    with TStringList.Create do
    try
      SaveToFile(ExtractFilePath(Application.ExeName)+'savedata.xml');
    finally
      Free;
    end;

  FXml := TJvSimpleXML.Create(nil);
  FXml.LoadFromFile(ExtractFilePath(Application.ExeName)+'savedata.xml');
  FXml.Root.Name := 'data';
  FSaveData := FXml.Root;
end;

destructor TSaveData.Destroy;
begin
  inherited;
  FSaveData.Items.Sort;
  FXml.SaveToFile(ExtractFilePath(Application.ExeName)+'config.xml');
  FXml.Free;
end;

procedure TSaveData.Load;
var
  i: Integer;
begin
  for i := 0 to FForm.ComponentCount-1 do
  begin
    if (FForm.Components[i] is TEdit) then
      TEdit(FForm.Components[i]).Text := GetString(TEdit(FForm.Components[i]).Name)
    else if (FForm.Components[i] is TMemo) then
       TMemo(FForm.Components[i]).Text := GetString(TMemo(FForm.Components[i]).Name);
  end;
end;

procedure TSaveData.Save;
var
  i: Integer;
begin
  for i := 0 to FForm.ComponentCount-1 do
  begin
    if (FForm.Components[i] is TEdit) then
      SetValue(TEdit(FForm.Components[i]).Name, TEdit(FForm.Components[i]).Text)
    else if (FForm.Components[i] is TMemo) then
      SetValue(TMemo(FForm.Components[i]).Name, TMemo(FForm.Components[i]).Text)
  end;
end;

procedure TSaveData.SetValue(AItem: string; AValue: Variant);
var
  Idx: Integer;
begin
  Idx := FSaveData.Items.IndexOf(AItem);
  if (Idx>=0) then
    FSaveData.Items.Item[Idx].Value := VarToStr(AValue)
  else
    FSaveData.Items.Add(AItem, VarToStr(AValue));
end;

function TSaveData.GetString(AItem: string): String;
var
  Idx: Integer;
begin
  Idx := FSaveData.Items.IndexOf(AItem);
  if (Idx>=0) then
    Result := FSaveData.Items.Item[Idx].Value
  else
    Result := '';
end;

end.