влад32

Unit Main;

Interface

Uses
    Winapi.Windows,
    Winapi.Messages,
    System.SysUtils,
    System.Variants,
    System.Classes,
    Vcl.Graphics,
    Clipbrd,
    Vcl.Controls,
    Vcl.Forms,
    Vcl.Dialogs,
    Vcl.StdCtrls,
    Vcl.Menus,
    Vcl.ExtCtrls,
    Vcl.Imaging.Pngimage,
    Vcl.Imaging.Jpeg;

Type
    TMainForm = Class(TForm)
        Button1: TButton;
        EditA: TEdit;
        Memo1: TMemo;
        MainMenu1: TMainMenu;
        N1: TMenuItem;
        N2: TMenuItem;
        N3: TMenuItem;
        N4: TMenuItem;
        N5: TMenuItem;
        Y1: TLabel;
        BalloonHint1: TBalloonHint;
        OpenDialog1: TOpenDialog;
        SaveDialog1: TSaveDialog;
        Label1: TLabel;
        Label2: TLabel;
        Procedure Button1Click(Sender: TObject);

        Procedure N2Click(Sender: TObject);
        Procedure N5Click(Sender: TObject);
        Procedure N3Click(Sender: TObject);
        Procedure GetPath(Var Path: String);
        Procedure N4Click(Sender: TObject);
        Procedure N1Click(Sender: TObject);
        Procedure EditAChange(Sender: TObject);
        Procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
        Procedure FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
        Procedure FormMouseEnter(Sender: TObject);

    Private
        { Private declarations }
    Public
        { Public declarations }
    End;

Var
    MainForm: TMainForm;

Implementation

{$R *.dfm}

Uses
    Instruction,
    Information;

Function CountVowels(Const Word: String; Vowel1, Vowel2: Char): Integer;
Var
    CharIndex, Count: Integer;
Begin
    Count := 0;

    For CharIndex := 1 To Length(Word) Do
    Begin
        If (Word[CharIndex] = Vowel1) Or (Word[CharIndex] = Vowel2) Then
            Inc(Count);
    End;

    Result := Count;
End;

Procedure TMainForm.Button1Click(Sender: TObject);
Var
    ResultText, Text: String;
    MaxVowelWord: String;
    MaxPercentage: Double;
    Word: String;
    CurrentPercentage: Double;
    Index: Integer;
Begin
    Text := EditA.Text;
    MaxVowelWord := '';
    MaxPercentage := 0;
    Index := 1;

    If Text <> '' Then
    Begin
        Text := Text + ' ';
        While Pos(' ', Text) > 0 Do
        Begin
            Word := Copy(Text, 1, Pos(' ', Text) - 1);
            Delete(Text, 1, Pos(' ', Text));

            If Word <> '' Then
            Begin
                CurrentPercentage := CountVowels(Word, 'А', 'а') / Length(Word);
                If CurrentPercentage > MaxPercentage Then
                Begin
                    MaxPercentage := CurrentPercentage;
                    MaxVowelWord := Word;
                End
                Else
                    If CurrentPercentage = MaxPercentage Then
                    Begin
                        If CountVowels(Word, 'А','а') > CountVowels(MaxVowelWord, 'А','а') Then
                            MaxVowelWord := Word;
                    End;
            End;
        End;

        If MaxVowelWord <> '' Then
            ResultText := 'Слово с наибольшей долей гласных "А, а": ' + MaxVowelWord
        Else
            ResultText := 'В предложении отсутствуют слова, содержащие гласные "А, а"';

        Memo1.Lines.Clear;
        Memo1.Lines.Add(ResultText);
    End
    Else
    Begin
        ShowMessage('Окно ввода пустое. Повторите попытку.');
    End;
End;

Procedure TMainForm.EditAChange(Sender: TObject);
Begin
    If Length(EditA.Text) = 0 Then
    Begin
        Memo1.Lines.Clear;
    End;
End;

Procedure TMainForm.FormCloseQuery(Sender: TObject; Var CanClose: Boolean);
Var
    Confirmation: Integer;
Begin
    Confirmation := Application.MessageBox('Вы уверены, что хотите выйти?', 'Выход', MB_YESNO);
    CanClose := Confirmation = IDYES;
End;

Procedure TMainForm.FormMouseEnter(Sender: TObject);
Begin
    ClipBoard.Clear;
End;

Procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
    If EditA.Text <> '' Then
        Button1.Enabled := True
    Else
        Button1.Enabled := False;
End;

Procedure TMainForm.N1Click(Sender: TObject);
Begin
    If Memo1.Lines.Count = 0 Then
    Begin
        N4.Enabled := False;
    End
    Else
    Begin
        N4.Enabled := True;
    End;
End;

Procedure TMainForm.N2Click(Sender: TObject);
Begin
    InstructionForm.ShowModal;
End;

Procedure TMainForm.GetPath(Var Path: String);
Begin
    If OpenDialog1.Execute Then
    Begin
        Path := OpenDialog1.FileName;
    End
    Else
    Begin
        ShowMessage('Открытие файла отменено.');
        Abort;
    End;
End;

Procedure TMainForm.N3Click(Sender: TObject);
Var
    IsCorrect, Fail: Boolean;
    Path, Errors, A, B, Str: String;
    Count: Integer;
    FileElem: TextFile;
    FileStream: TFileStream;
Begin
    GetPath(Path);

    AssignFile(FileElem, Path);
    Fail := False;
    IsCorrect := True;
    Count := 0;
    If Path = '' Then
        IsCorrect := False;
    If IsCorrect Then
        Try
            FileStream := TFileStream.Create(Path, FmOpenRead Or FmShareDenyNone);
            Try
                //Файл успешно открыт - добавьте код для работы с открытым файлом
                Reset(FileElem);
                ShowMessage('Файл успешно открыт.');
            Finally
                FileStream.Free;
            End;
        Except
            On E: EInOutError Do
            Begin
                If E.ErrorCode = 103 Then
                Begin
                    IsCorrect := False;
                    //Ошибка I/O с кодом 103 - файл занят или недоступен
                    ShowMessage('Ошибка I/O (код 103): Файл занят или недоступен.' + #13#10 + 'Проверьте файл и повторите попытку.');
                End
                Else
                Begin
                    IsCorrect := False;
                    //Другая ошибка I/O - выводим сообщение об ошибке
                    ShowMessage('Ошибка I/O: ' + E.Message);
                    If E.Message = 'I/O error 32' Then
                        ShowMessage('Файл используется в нескольких процессах' + #13#10 + 'Проверьте файл и повторите попытку.');
                End;
            End;
            On E: Exception Do
            Begin
                //Другие исключения - выводим сообщение об ошибке
                ShowMessage('Ошибка: ' + E.Message + #13#10 + 'Проверьте файл и повторите попытку.');
                IsCorrect := False;
            End;
        End;
    If IsCorrect = True Then
    Begin
        Try
            Try
                Reset(FileElem);
            Except
                CloseFile(FileElem);
                IsCorrect := False;
                ShowMessage('Ошибка открытия файла.');
            End;
            If IsCorrect Then
            Begin
                While Not Eof(FileElem) Do
                Begin
                    ReadLn(FileElem, Str);
                    Inc(Count);
                End;
                CloseFile(FileElem);
                If Count <> 1 Then
                    Fail := True;
            End;
            If IsCorrect Then
            Begin
                Reset(FileElem);
                Try
                    Readln(FileElem, A);
                Except
                    Fail := True;
                End;

            End;
        Finally
            CloseFile(FileElem);
            ShowMessage('Импорт завершен.');
        End;
        If Length(A) > 30 Then
            Fail := True;
        Errors := 'Некорректные данные файла! Проверьте данные и повторите попытку.';
        If Fail = True Then
        Begin
            ShowMessage(Errors);
        End;
        If Fail = False Then
            EditA.Text := A;
    End;
End;

Procedure TMainForm.N4Click(Sender: TObject);
Begin

    If SaveDialog1.Execute Then
    Begin

        Memo1.Lines.SaveToFile(SaveDialog1.FileName);
        ShowMessage('Сохранение завершено.');
    End
    Else

    Begin
        ShowMessage('Сохранение в файл отменено.');
    End;

End;

Procedure TMainForm.N5Click(Sender: TObject);
Begin
    InformationForm.ShowModal;
End;

End.