3.4

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    SaveDialog1: TSaveDialog;
    PopupMenu1: TPopupMenu;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Label2: TLabel;
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Path, Result : String;
  IsFileOpen : Boolean;

implementation

{$R *.dfm}



function CheckBrackets(const Str: string): Boolean;
var
    Stack: string;
    i: Integer;
begin
    Stack := '';
    for i := 1 to Length(Str) do
    begin
        if Str[i] in ['(', '{', '['] then
            Stack := Stack + Str[i]
        else if Str[i] in [')', '}', ']'] then
        begin
            if Length(Stack) = 0 then
                Exit(False);
            case Str[i] of
                ')': if Stack[Length(Stack)] = '(' then
                        Delete(Stack, Length(Stack), 1)
                    else
                Exit(False);
                '}': if Stack[Length(Stack)] = '{' then
               Delete(Stack, Length(Stack), 1)
                    else
                Exit(False);
                ']': if Stack[Length(Stack)] = '[' then
               Delete(Stack, Length(Stack), 1)
                    else
                Exit(False);
            end;
        end;
    end;
    Result := Length(Stack) = 0;
end;



procedure TForm1.Button1Click(Sender: TObject);
Var
    Str : String;
    IsTrue : Boolean;
begin
    Str := Edit1.Text;
    IsTrue := CheckBrackets(Str);
    If IsTrue then
        Label2.Caption := 'Баланс есть'
    else
    begin
        Label2.Caption := 'Баланса нет';
    end;
    Label2.Visible := True;
    Result := 'Исходная строка: ' + Str + '. Результат: ' + Label2.Caption;
    N3.Enabled := True;
end;





procedure TForm1.Edit1Change(Sender: TObject);
begin
    N3.Enabled := False;
    If Length(Edit1.Text) = 0 then
        Button1.Enabled := False
    else
        Button1.Enabled := True;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    If (Key = #13) and (Button1.Enabled) then
        Button1.Click;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
     CanClose := MessageBox(Form1.Handle, 'Вы уверены, что хотите выйти?', 'Выход', MB_YESNO + MB_ICONQUESTION)=ID_YES;
end;

Function Open (): String;
Begin
    With Form1 Do
    Begin
        If OpenDialog1.Execute Then
        Begin
            Path := OpenDialog1.FileName;
            IsFileOpen := True;
        End
        Else
            IsFileOpen := False;
    End;
    Open := Path;
End;



procedure TForm1.N2Click(Sender: TObject);
Var
    FileInput: TextFile;
    Str : String;
begin
    Path := Open;
    AssignFile(FileInput, Path);
    Reset(FileInput);
    If(IsFileOpen) Then
    Begin
        Readln(FileInput, Str);
    End;
    If Str <> '' then
    begin
        Edit1.Text := Str;
    end
    else
    begin
         MessageBox(Form1.Handle, Pchar('Проверьте исходные данные, так как в файле ничего нет.'), 'Ошибка', MB_ICONSTOP);
    end;
    CloseFile(FileInput);
end;

procedure TForm1.N3Click(Sender: TObject);
Var
    FileOutput: TextFile;
    IsCorrect : Boolean;
begin
    IsCorrect := True;
    Path := Open;
    If (IsFileOpen) Then
    Begin
        try
            AssignFile(FileOutput, Path);
            Rewrite(FileOutput);
            Write(FileOutput, Result);
        except
            IsCorrect := False;
            Application.MessageBox('Запись в файл не удалась.', 'Ошибка', MB_ICONSTOP);
        end;
        if IsCorrect then
        Begin
            Application.MessageBox('Запись файла выполнена успешно.', 'Результат', 0);
            Edit1.Text := '';
            Label2.Caption := '';
            CloseFile(FileOutput);
        End;
    End;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
     Application.MessageBox('Программа проверяет, есть ли в вашем тексте баланс скобочек. Балансом считаются, к примеру, такие случаи: ( ), [ ], { }. Балансом не являются { ], { { } и тп.', 'Инструкция', 0);
end;

procedure TForm1.N5Click(Sender: TObject);
begin
     Application.MessageBox('Арефин Владислав гр.251004', 'Разрабочик', 0);
end;





end.