Main.pas 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. unit Main;
  2. interface
  3. uses
  4. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  5. Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  6. Quick.Config, Vcl.StdCtrls;
  7. type
  8. TWinPos = record
  9. public
  10. PosX : Integer;
  11. PosY : Integer;
  12. end;
  13. TMyConfig = class(TAppConfig)
  14. public
  15. LastFilename : string;
  16. WindowPos : TWinPos;
  17. end;
  18. TMainForm = class(TForm)
  19. meInfo: TMemo;
  20. btnLoad: TButton;
  21. btnSave: TButton;
  22. procedure FormCreate(Sender: TObject);
  23. procedure btnLoadClick(Sender: TObject);
  24. procedure btnSaveClick(Sender: TObject);
  25. private
  26. { Private declarations }
  27. public
  28. { Public declarations }
  29. end;
  30. var
  31. MainForm: TMainForm;
  32. MyConfig : TMyConfig;
  33. implementation
  34. {$R *.dfm}
  35. procedure TMainForm.btnLoadClick(Sender: TObject);
  36. begin
  37. MyConfig.Load(True);
  38. meInfo.Lines.Text := MyConfig.AsJsonString;
  39. end;
  40. procedure TMainForm.btnSaveClick(Sender: TObject);
  41. begin
  42. MyConfig.LastFilename := 'notes.txt';
  43. MyConfig.WindowPos.PosX := 200;
  44. MyConfig.WindowPos.PosX := 100;
  45. MyConfig.Save;
  46. end;
  47. procedure TMainForm.FormCreate(Sender: TObject);
  48. begin
  49. MyConfig := TMyConfig.Create('prueba.json');
  50. end;
  51. end.