Lab1Challenge1Forms2

Unit Unit1;

Interface

Uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Tabs, Vcl.StdCtrls, Vcl.Menus,
    System.Actions, Vcl.ActnList, System.UITypes, Vcl.ExtDlgs;

Const
    AllowedKeys = ['0'..'9', '-', #8];
    ROOMS_MIN = 1;
    ROOMS_MAX = 99999;
    MANS_AND_WOMANS_MIN = 0;
    MANS_AND_WOMANS_MAX = 99999;

Type
    TMainForm = Class(TForm)
        Menu: TMainMenu;
        FileTab: TMenuItem;
        InfoTab: TMenuItem;
        AboutTab: TMenuItem;
        OpenFileOption: TMenuItem;
        SaveFileOption: TMenuItem;
        ExitFileOption: TMenuItem;
        FileOptionsSeparator: TMenuItem;
        InfoAboutFilesOption: TMenuItem;
        InfoAboutKeyboardOptions: TMenuItem;
        TaskLabel: TLabel;
        RoomsEdit: TEdit;
        WomansEdit: TEdit;
        MansEdit: TEdit;
        DescriptionLabel1: TLabel;
        DescriptionLabel3: TLabel;
        DescriptionLabel2: TLabel;
        CalculationButton: TButton;
        ResultLabel: TLabel;
        Actions: TActionList;
        OnKeyPressed: TAction;
        OnEditChanged: TAction;
        OnFormClose: TAction;
        OpenFileDialog: TOpenTextFileDialog;
        SaveFileDialog: TSaveTextFileDialog;
        Procedure CalculationButtonClick(Sender: TObject);
        Procedure OnKeyPressedExecute(Sender: TObject; Var Key: Char);
        Procedure OnEditChangedExecute(Sender: TObject);
        Procedure OnFormCloseExecute(Sender: TObject);
        Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
        Procedure OpenFileOptionClick(Sender: TObject);
        Procedure SaveFileOptionClick(Sender: TObject);
        Procedure AboutTabClick(Sender: TObject);
        Procedure InfoAboutFilesOptionClick(Sender: TObject);
        Procedure InfoAboutKeyboardOptionsClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    Private
        LatestResult: Boolean;
        Procedure CheckDataInEdits();
        Function Calculate(Const Rooms: Integer; Const Womans: Integer; Const Mans: Integer): Boolean;
        Procedure SetResultIntoLabel(Const Result: Boolean);
        Procedure ProcessFile(Const FileName: TFileName);
        Function Substring(Const Orig: String; Const Beg: Integer; Const Len: Integer): String;
        Function IsTextFile(Const FilePath: String): Boolean;
        Function CheckFileAvailability(Const FilePath: String; Const Read: Boolean): Boolean;
        Procedure SaveIntoFile(Const FileName: TFileName);
    Public

End;

Var
    MainForm: TMainForm;

implementation

{$R *.dfm}

Procedure TMainForm.AboutTabClick(Sender: TObject);
Var
    Dlg: TForm;
Begin
    Dlg := CreateMessageDialog(
            'Программа для решения задания 1.1!' + #10 + 'Разработана Даниилом Струцом, группа 451004',
            mtInformation, [mbOk], mbOk);
    Dlg.Caption := 'О разработчике...';
    Dlg.ShowModal();
    Dlg.Free();
End;

Function TMainForm.Calculate(Const Rooms: Integer; Const Womans: Integer; Const Mans: Integer): Boolean;
Var
    MansRooms, WomansRooms: Integer;
Begin
    MansRooms := Mans Div 4;
    WomansRooms := Womans Div 4;

    If Not(MansRooms * 4 = Mans) Then
        Inc(MansRooms);
    If Not(WomansRooms * 4 = Womans) Then
        Inc(WomansRooms);

    Calculate := (MansRooms + WomansRooms < Rooms + 1);
End;

Procedure TMainForm.SaveFileOptionClick(Sender: TObject);
Begin
    If SaveFileDialog.Execute(Self.Handle) Then
        SaveIntoFile(SaveFileDialog.FileName);
End;

Procedure TMainForm.SaveIntoFile(Const FileName: TFileName);
Var
    F: TextFile;
    FN: String;
    Dlg: TForm;
Begin
    If Not (IsTextFile(FileName)) Then
        FN := FileName + '.txt'
    Else
        FN := FileName;

    If CheckFileAvailability(FN, False) Then
    Begin
        Try
            AssignFile(F, FN);
            Rewrite(F);
            If (LatestResult) Then
                Write(F, 'Достаточно')
            Else
                Write(F, 'Недостаточно');

            CloseFile(F);
        Except
            Dlg := CreateMessageDialog(
                'Выбранный файл недоступен или не является текстовым файлом!',
                mtError, [mbOk], mbOk);
            Dlg.Caption := 'Сохранение в файл';
            Dlg.ShowModal();
            Dlg.Free();
        End;
    End
    Else
    Begin
        Dlg := CreateMessageDialog(
            'Выбранный файл недоступен или не является текстовым файлом!',
            mtError, [mbOk], mbOk);
        Dlg.Caption := 'Сохранение в файл';
        Dlg.ShowModal();
        Dlg.Free();
    End;
End;

Procedure TMainForm.SetResultIntoLabel(Const Result: Boolean);
Begin
    If (Result) Then
        ResultLabel.Caption := 'Достаточно'
    Else
        ResultLabel.Caption := 'Недостаточно';
End;

Procedure TMainForm.CalculationButtonClick(Sender: TObject);
Var
    Rooms, Womans, Mans: Integer;
    IsCorrect: Boolean;
    Reasons: String;
    Dlg: TForm;
Begin
    IsCorrect := True;
    Rooms := -1;
    Womans := -1;
    Mans := -1;
    Try
        Rooms := StrToInt(RoomsEdit.Text);
        Womans := StrToInt(WomansEdit.Text);
        Mans := StrToInt(MansEdit.Text);
    Except
        IsCorrect := False;
    End;

    If (Rooms < ROOMS_MIN) Or (Rooms > ROOMS_MAX) Then
    Begin
        IsCorrect := False;
        Reasons := Reasons + ' количество комнат';
    End;
    If (Womans < MANS_AND_WOMANS_MIN) Or (Womans > MANS_AND_WOMANS_MAX) Then
    Begin
        IsCorrect := False;
        If Not (Reasons = '') Then
            Reasons := Reasons + ',';
        Reasons := Reasons + ' количество женщин';
    End;
    If (Mans < MANS_AND_WOMANS_MIN) Or (Mans > MANS_AND_WOMANS_MAX) Then
    Begin
        IsCorrect := False;
        If Not (Reasons = '') Then
            Reasons := Reasons + ',';
        Reasons := Reasons + ' количество мужчин';
    End;

    If (IsCorrect) Then
    Begin
        LatestResult := Calculate(Rooms, Womans, Mans);
        SetResultIntoLabel(LatestResult);
        SaveFileOption.Enabled := True;
    End
    Else
    Begin
        Dlg := CreateMessageDialog(
            'Значения в следующих полях неверны:' + Reasons + '. Прочитайте инструкцию!',
            mtError, [mbOk], mbOk);
        Dlg.Caption := 'Вычисление';
        Dlg.ShowModal();
        Dlg.Free();
    End;
End;

Procedure TMainForm.CheckDataInEdits();
Begin
    If Not (RoomsEdit.Text = '') And Not (MansEdit.Text = '') And Not (WomansEdit.Text = '') Then
        CalculationButton.Enabled := True
    Else
        CalculationButton.Enabled := False;
End;

Procedure TMainForm.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
    Action := TCloseAction.caNone;
    OnFormCloseExecute(Sender);
End;

procedure TMainForm.FormResize(Sender: TObject);
begin
    If (Self.WindowState = WSMaximized) Then
        Self.WindowState := WSNormal;
end;

Procedure TMainForm.OnEditChangedExecute(Sender: TObject);
Var
    I: Integer;
Begin
    CheckDataInEdits();
    SaveFileOption.Enabled := False;
End;

Procedure TMainForm.OnFormCloseExecute(Sender: TObject);
Var
    CloseDialog: TForm;
Begin
    CloseDialog := CreateMessageDialog(
        'Вы точно хотите выйти из программы?',
        mtConfirmation, [mbYes, mbNo], mbNo, ['Да', 'Нет']);
    CloseDialog.Caption := 'Выход из программы';
    If (CloseDialog.ShowModal() = 6) Then
        Application.Terminate();
    CloseDialog.Free();
End;

Procedure TMainForm.OnKeyPressedExecute(Sender: TObject; Var Key: Char);
Begin
    If Not CharInSet(Key, AllowedKeys) Then
        Key := #0
End;

Procedure TMainForm.OpenFileOptionClick(Sender: TObject);
Begin
    If OpenFileDialog.Execute(Self.Handle) Then
        ProcessFile(OpenFileDialog.FileName);
End;

Procedure TMainForm.ProcessFile(Const FileName: TFileName);
Var
    F: TextFile;
    Rooms, Womans, Mans: Integer;
    IsCorrect: Boolean;
    Dlg: TForm;
Begin
    IsCorrect := True;
    Rooms := -1;
    Mans := -1;
    Womans := -1;
    If CheckFileAvailability(FileName, True) Then
    Begin
        Try
            AssignFile(F, FileName);
            Reset(F);
            If Not Eof(F) Then
                Read(F, Rooms);
            If Not Eof(F) Then
                Read(F, Womans);
            If Not Eof(F) Then
                Read(F, Mans);
            CloseFile(F);
        Except
            Dlg := CreateMessageDialog(
                'Файл содержит неверные значения!',
                mtError, [mbOk], mbOk);
            Dlg.Caption := 'Открытие файла';
            Dlg.ShowModal();
            Dlg.Free();
            IsCorrect := False;
        End;

        If (IsCorrect) Then
        Begin
            If (Rooms < ROOMS_MIN) Or (Rooms > ROOMS_MAX)
                Or (Womans < MANS_AND_WOMANS_MIN) Or (Womans > MANS_AND_WOMANS_MAX)
                Or (Mans < MANS_AND_WOMANS_MIN) Or (Mans > MANS_AND_WOMANS_MAX) Then
            Begin
                Dlg := CreateMessageDialog(
                    'Файл содержит значения, находящиеся вне границ, или же в файле недостаточно нужных значений!',
                    mtError, [mbOk], mbOk);
                Dlg.Caption := 'Открытие файла';
                Dlg.ShowModal();
                Dlg.Free();
            End
            Else
            Begin
                RoomsEdit.Text := IntToStr(Rooms);
                WomansEdit.Text := IntToStr(Womans);
                MansEdit.Text := IntToStr(Mans);
            End;
        End;
    End
    Else
    Begin
        Dlg := CreateMessageDialog(
            'Выбранный файл недоступен или не является текстовым файлом!',
            mtError, [mbOk], mbOk);
        Dlg.Caption := 'Открытие файла';
        Dlg.ShowModal();
        Dlg.Free();
    End;
End;

Function TMainForm.Substring(Const Orig: String; Const Beg: Integer; Const Len: Integer): String;
Var
    Res: String;
    I, En: Integer;
Begin
    En := Beg + Len - 1;
    If ((Beg > 0) And (En < (Length(Orig) + 1))) Then
    Begin
        For I := Beg To En Do
            Res := Res + Orig[I];
    End;

    Substring := Res;
End;
Procedure TMainForm.InfoAboutFilesOptionClick(Sender: TObject);
Var
    Dlg: TForm;
Begin
    Dlg := CreateMessageDialog(
                'Для открытия файла с нужными данными:' + #10
                + '1. Нажмите на пункт "Файл" в меню сверху и выберите опцию "Открыть..."' + #10
                + '2. Выберите нужный текстовый файл' + #10
                + '3. Откройте его при помощи кнопки "Открыть"' + #10
                + 'Если информация в файле верная - данные появятся в полях для ввода!' + #10
                + '' + #10
                + 'Для сохранения результатов в файл:' + #10
                + '1. Нажмите на пункт "Файл" в меню сверху и выберите опцию "Сохранить..."' + #10
                + '2. Выберите файл или же укажите название нового файла для сохранения' + #10
                + '3. Нажмите на кнопку "Сохранить"' + #10
                + 'Если файл будет доступен - результат будет сохранен!',
                mtInformation, [mbOk], mbOk);
    Dlg.Caption := 'Инструкция: выбор файлов';
    Dlg.ShowModal();
    Dlg.Free();
End;

Procedure TMainForm.InfoAboutKeyboardOptionsClick(Sender: TObject);
Var
    Dlg: TForm;
Begin
    Dlg := CreateMessageDialog(
                'Работа с программой:' + #10
                + '1. Введите данные в поля для ввода' + #10
                + '2. Нажмите на кнопку "Вычислить"' + #10
                + 'Если данные верны - в строке под кнопкой будет выведен результат!' + #10
                + '' + #10
                + 'Однако для входных данных есть некоторые требования:' + #10
                + '- Количество комнат должно быть от 1 до 99999 (включительно)' + #10
                + '- Количество мужчин и женщин должно быть от 0 до 99999 (включительно)',
                mtInformation, [mbOk], mbOk);
    Dlg.Caption := 'Инструкция: работа с программой';
    Dlg.ShowModal();
    Dlg.Free();
End;

Function TMainForm.IsTextFile(Const FilePath: String): Boolean;
Var
    Path: String;
Begin
    Path := LowerCase(Substring(FilePath, Length(FilePath) - 3, 4));
    IsTextFile := (Path = '.txt');
End;

Function TMainForm.CheckFileAvailability(Const FilePath: String; Const Read: Boolean): Boolean;
Var
    IsAvailable: Boolean;
    Checkable: TextFile;
Begin
    IsAvailable := True;
    AssignFile(Checkable, FilePath);
    Try
        If (Read) Then
            Reset(Checkable)
        Else
        Begin
            If (FileExists(FilePath)) Then
                Append(Checkable)
            Else
                Rewrite(Checkable);
        End;
        CloseFile(Checkable);
    Except
        IsAvailable := False;
    End;

    If (IsAvailable And Not IsTextFile(FilePath)) Then
        IsAvailable := False;

    CheckFileAvailability := IsAvailable;
End;

End.