Разработка алгоритма программного обеспечения в Delphi 7 для текстового редактора

   Рис. 5 

    При  выборе подзакладки “открыть”   предлагается открыть текстовый  файл, выбрав его из диалогового  окна открытия файла. (см. Рис. 6)

   Для  организации данной процедуры,  требуется установить на форму  компонент OpenDialog

  OpenDialog- диалог открытия файла.

   При  выборе подзакладки “открыть”,  происходит вызов процедуры  TForm1.Open1Click(Sender: Tobject) предлогающий выбрать файл и если файл выбран  if OpenDialog1.Execute then , то создаётся дочернее окно ChildForm := TchildForm.Create(Self), и загружается в Memo выбранный файл ChildForm.Memo1.Lines.LoadFromFile(OpenDialog1.FileName). 

 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

       Рис. 6 

      При выборе подзакладки «сохранить»   вызывается процедура TForm1.Save1Click(Sender: Tobject), которая выполняет сохранение файла с именем, указанным в заголовке (ActiveMDIChild as TChildForm).Memo1.Lines.SaveToFile((ActiveMDIChild as TchildForm).Caption) .

     При выборе подзакладки «сохранить  как...», в открывшемся  диалоговом  предлагается ввести имя файла и выбрать место куда хотите сохранить этот файл.  (см. рис. 7)

    При  выборе подзакладки «сохранить  как...» вызывается процедура TForm1.SaveAs1Click(Sender: Tobject) которая предлагает ввести  имя сохраняемого файла SaveDialog1.Title:='Сохранить файл как...', если пользователь выбрал название файла if SaveDialog1.Execute then, выполняется сохранение на диске.

  Для организации  процедур «сохранить» и «сохранить  как...»

необходимо  установить на форму компонент  «Save Dialog».

Save Dialog - диалог сохранения файла.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

  Рис. 7 

  При выборе  подзакладки «выход» осуществляется  выход из приложения.

  При выборе  подзакладки «выход», вызывается  процедура TForm1.Exit1Click(Sender: Tobject) закрывающая   приложение Close. 

  Закладка «правка», содержит следующие подзакладки:

             -Вырезать

             -Копировать

             -Вставить

             -Удалить

             -Выделить всё

           (см. рис. 8)

      Эти действия являются стандартными и содержатся в списке                         

стандартных действий в компоненте ActionList .

    ActionList- компонент, содержащий список как стандартных действий компонентов (вырезать, вставить, упорядочить значки для MDI-окон), так и предусматривающий возможность создать собственные действия.

     Дважды щелкаем по нему мышкой. Открывается окно изменения действий. Нажимаем комбинацию клавиш Ctrl+Ins, или выбираем пункт "New Standart Action" из ниспадаюшего меню на желтой кнопки. Появляется окно добавления стандартных действий, которые в последствии можно привязать к пунктам меню или кнопкам(см. Рис. 9) С помощью нажатой кнопки Shift или Ctrl выбераем все стандартные действия, которые относятся к категории Edit.

   Подзакладка «вырезать» связана со стандартным действием «EditCut». Она пердназначена для вырезания выделенного текста.

   Подзакладка «Копировать» связана со стандартным действием «EditCopy». Она пердназначена для копирования выделенного текста.

   Подзакладка «вставить»  связана со стандартным действием «EditPaste». Она предназначена для вставки вырезанного или копированного текста.

   Подзакладка «удалить» связана со стандартным действием «EditDelete». Она предназначена для удаления выбранного текста.

   Подзакладка «Выделить всё» связана со стандартным действием «EditSelectAll». Она предназначена для выделения всего текста.

 
 
 
 
 
 
 
 
 
 
 

           Рис. 8 

      

                      
 
 
 
 
 
 
 
 

рис. 9 
 
 

Закладка  «Поиск» содержит следующие подзакладки:

                -Найти...

                  -Найти далее...

                -Заменить

               (см. рис. 10)

     Эти действия являются стандартными и содержатся в списке                         

стандартных действий в компоненте ActionList.  Из окна добавления стандартных действий  выбераем все стандартные действия, которые относятся к категории Search (см. рис. 11).

     Подзакладка «Найти» связана со стандартным действием «SearchFind».  Она выполняет поиск фрагмента текста. (см. рис. 12)

    Подзакладка «Найти далее...» связана со стандартным действием «SearchNext».

  Подзакладка «Заменить» связана со стандартным действием «SearchReplace». Она заменяет вхождение искомого текста на заданный. (см. рис. 13)

 

  рис. 10                                                       рис. 11 
 

 
 

  
 
 
 
 
 

      
 

        рис. 12 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 

    
 

  
 
 

рис. 13 

  Закладка «Окна» содержит следующие подзакладки:

          -Упорядочить значки

          -Каскадом

          -Закрыть

          -Минимизировать все

          -Упорядочить по вертикали

          -Упорядочить по горизонтали

             (см. рис. 14)

      Эти действия являются стандартными и содержатся в списке                         

стандартных действий в компоненте ActionList.  Из окна добавления стандартных действий  выбераем все стандартные действия, которые относятся к категории «Window» (аналогично рисункам 9 и 11).

    Подзакладка «Упорядочить значки» связана со стандартным действием «WindowArrange».

    Подзакладка «Каскадом» связана со стандартным действием «WindowCascade».

    Подзакладка «Закрыть» связана со стандартным действием «WindowClose».

    Подзакладка «Минимизировать все» связана со стандартным действием «WindowMinimizeAll».

    Подзакладка «Упорядочить по вертикали» связана со стандартным действием «WindowTileVertical».

    Подзакладка «Упорядочить по горизонтали» связана со стандартным действием  «WindowTileHorizontal». 
 
 
 
 
 
 

 
 
 

   
 
 
 
 

            Рис. 14 

  Если после работы с текстом вы его не сохранили, то при нажатие по подзакладке «Выход» высветится окно, которое предложит вам сохранить документ (см. рис. 15)

   Если нет дочерних окон, то выйти из процедуры if MDIChildCount=0 then Exit. Если есть, то идти в процедуру «сохранить как...»

if (ActiveMDIChild as TchildForm).Caption;

SaveAs1Click(Sender).

 
 
 
 
 
 
 
 
 
 

            Рис. 15 
 

В итоге главная форма должна содержать компоненты:

-MainMenu

-OpenDialog

-SaveDialog

-ActionList

-FindDialog

-ReplaceDialog

(см. рис. 16) 
 
 
 

Дочерняя форма:

-Memo

(см. рис. 17)

            рис. 16

                                                              Рис. 17

3.2 Содержание разделов

 

1.ChildUnit

    Width — 696 (длинна)

    Height — 480 (высота)

    FormStyle — fsMDIForm (родительское окно в MDI-приложении)

    TextHeight — 13 (высота текста)

   

2.MainForm

     Width — 474 (длинна)

     Height — 361 (высота)

     FormStyle — fsMDIChild (дочернее окно в MDI-приложении)

     Memo1 — компонент, по размерам занимающий всю форму

     (Align = alClient) и служащий для отображения текста.

       var                                       // раздел описания переменных

       ChildForm: TchildForm        // переменная ChildForm, является     

                                                       переменной типа TChildForm =                        

                                                        class(TForm)

       CanClose: Boolean             //  переменная логического типа                                                               

                                                       принимает значение «true» или «false».

        Res:Integer                         // переменная для хранения результата

                                                       выбора действия. 

3.Project2

     var                            // раздел описания переменных

     Form1: Tform1         // переменная Form1, является переменной типа                                                    

                                        Tform1  = class(TForm)) 
 

            3.3 Восстановление программы в случае сбоя            осуществляется следующим образом 
 

1. В случае сбоя или возникновения серьезной ошибки, необходимо закрыть приложение, нажав на соответствующую кнопку , если приложение не закроется, то вызвать диспетчер задач и закрыть приложение с его помощью.
2. Заново запустить приложение, продолжить работу.

3.4 Алгоритм обработки данных

    Если требуется создать новый текстовой документ, то вызывается процедура Tform1.New1Click, создающаа новое дочернее окно TchildForm.Create(Self).

      1. Создать дочернее окно ChildForm := TchildForm.Create(Self)

      2. Заголовок окна нового файла содержит название "НОВЫЙ"

         Caption:='НОВЫЙ'

       3. Добавить ChildForm.Memo1.Tag:=0

    Если требуется открыть текстовый файл, то вызывается процедура Tform1.Open1Click если файл выбран, то выполнять следующее if OpenDialog1.Execute then:

      1. Создать дочернее окно ChildForm := TchildForm.Create(Self);

      2. Загрузить в Memo1 выбранный файл