3.2

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;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label3: TLabel;
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
    SetOfSymbols : Set of Char;
    I : Integer;
    Sequence : AnsiString;
Const
    Symbols = ['/', '*', '-', '+', '%', '0' .. '9'];
begin
    Sequence := Edit1.Text;
    SetOfSymbols := [];
    For I := 0 To Length(Sequence) Do
        If Sequence[I] In Symbols Then
            Include(SetOfSymbols, Sequence[I]);
    If SetOfSymbols = [] Then
        Label3.Caption := 'Цифр и знаков математических операций нет.'
    Else
    Begin
        Label3.Caption := 'Результат: ';
        For I := 0 To 255 Do
            If chr(I) In SetOfSymbols Then
                Label3.Caption := Label3.Caption + Chr(I) + ' ';
    End;
    Result := Label3.Caption;
    N3.Enabled := True;
end;

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

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;

procedure TForm1.N4Click(Sender: TObject);
begin
    Application.MessageBox('Программа ищет в введенной пользователем строке знаки арифметических операций и цифры, а после выводит их.', 'Инструкция', 0);
end;

procedure TForm1.N5Click(Sender: TObject);
begin
    Application.MessageBox('Арефин Владислав гр.251004', 'Разрабочик', 0);
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 := '';
            Label3.Caption := '';
            CloseFile(FileOutput);
        End;
    End;
end;

end.