CourseProject_ReMind/Notes.pas at main · ewsc/CourseProject_ReMind · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Unit Notes;

Interface

Uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Actions, Vcl.ActnList, Vcl.StdCtrls, System.IOUtils;

Type
    TNotesForm = class(TForm)
        NotesMemo: TMemo;
        NotesActionList: TActionList;
        aStartController: TAction;
    aCloseForm: TAction;
        Procedure aStartControllerExecute(Sender: TObject);
        Procedure FormClose(Sender: TObject; var Action: TCloseAction);
        Procedure FormCreate(Sender: TObject);
        Procedure FormResize(Sender: TObject);
    procedure aCloseFormExecute(Sender: TObject);
    Private
        { Private declarations }
    Public
        { Public declarations }
    End;

Var
  NotesForm: TNotesForm;

Implementation

{$R *.dfm}

Const
    FILE_NOTES: String = '\ReMind\notes.dat';

Procedure CreateNewFiles();
Var
    NewFile: TextFile;
Begin
    AssignFile(NewFile, TPath.GetDocumentsPath + FILE_NOTES);
    Rewrite(NewFile);
    WriteLn(NewFile, 'This is your notepad.');
    Close(NewFile);
End;

Procedure AddFileDataToMemo(NotesMemo: TMemo);
Var
    FNotes: TextFile;
    Temp: String;
Begin
    AssignFile(FNotes, TPath.GetDocumentsPath + FILE_NOTES);
    Reset(FNotes);
    While not EoF(FNotes) do
    Begin
        ReadLn(FNotes, Temp);
        NotesMemo.Lines.Add(Temp);
    End;
    Close(FNotes);
End;

Procedure TNotesForm.aCloseFormExecute(Sender: TObject);
Begin
    Self.Close;
End;

Procedure TNotesForm.aStartControllerExecute(Sender: TObject);
Var
    IsFirstLaunch: Boolean;
Begin
    IsFirstLaunch := not FileExists(TPath.GetDocumentsPath + FILE_NOTES);
    If IsFirstLaunch then
    Begin
        CreateNewFiles();
    End;
    AddFileDataToMemo(NotesMemo);
End;

Procedure TNotesForm.FormClose(Sender: TObject; var Action: TCloseAction);
Var
    FNotes: TextFile;
Begin
    NotesMemo.Lines.SaveToFile(TPath.GetDocumentsPath + FILE_NOTES);
    NotesMemo.Clear;
End;

Procedure TNotesForm.FormCreate(Sender: TObject);
Begin
    NotesMemo.Clear;
    NotesMemo.Width := Self.ClientWidth;
    NotesMemo.Height := Self.ClientHeight;
End;

Procedure TNotesForm.FormResize(Sender: TObject);
Begin
    NotesMemo.Width := Self.ClientWidth;
    NotesMemo.Height := Self.ClientHeight;
End;

End.