delphi избежать повторение кода из-за одного оператора

[heny]

Здравствуйте, я Вам уже писала про эту программу, спасибо всем кто мне помог. Но написание курсового отложилось на определенное время и я снова хочу вернуться к нему
Программа написание текстового редактора на Delphi.
Вопрос в следующем:
Я написала код для пунктов "Сохранить", "Сохранить как" и "Создать". Все работает, но есть одно НО.
При сохранении в заголовке текстового редактора появляется имя файла, которое я сохраняю.
При написании пункта "Создать" я написала следующий код:

procedure TEditor.Create1Click(Sender: TObject);
begin

  if RichEdit1.Modified=true then
     begin
        if trim(RichEdit1.Lines.text)='' then
            begin RichEdit1.Clear;
            end
       else
           begin
 mes := Application.MessageBox ('Вы хотите сохранить документ?',  'Предупреждение', mb_YesNoCancel);
                   if mes = mrYes then
                       begin
                           if FName > '' then
                               begin
                                  Save1Click(Sender);
                                  RichEdit1.Clear;
                               end
                           else
                               begin
                                  SaveAs1Click(Sender);
                                  RichEdit1.Clear;
                               end

                      end;
           end;
end;

то есть вставила в код процедуры пунктов "Сохранить" и "Сохранить как". Все работает, но появляется проблема: в этих процедурах переменной FName присвается имя сохраненного файла, и при работе пункта "Создать", когда нажимаешь "сохранить файл: да", программа сохраняет, затем очищает, но остается имя файла в заголовке редактора. Не знаю как это исправить, у меня только одно предположение, чтобы вместо

if FName > '' then
                               begin
                                  Save1Click(Sender);
                                  RichEdit1.Clear;
                               end
                           else
                               begin
                                  SaveAs1Click(Sender);
                                  RichEdit1.Clear;
                               end

расписывать процедуры Save1Click и SaveAs1Click, и там менять строку с присвоением переменной FName имени файла (присвоить ей пустое значение).
Но хочется не усложнять код, а как сделать по другому сама не могу додуматься, помогите студентке

А вот код процедуры SaveAs1Click (в Save1Click идет повторение):

procedure TEditor.SaveAs1Click(Sender: TObject);
begin
   if trim(RichEdit1.Lines.text)='' then
   StatusBar1.Panels[1].Text:='Количество строк в тексте 0'
   else
     begin
        if SaveDialog1.Execute then
        begin
           RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
           RichEdit1.Modified:=false;
           StatusBar1.Panels[0].Text:='';
           FName:=SaveDialog1.FileName;
           Editor.Caption:='Текстовый редактор - '+FName;
           StatusBar1.Panels[1].Text:='Текст сохранен';
        end;
   end;
end;

[Greblin]

А почему бы точно так же не прописать новый заголовок в функции создания нового документа?

procedure TEditor.Create1Click(Sender: TObject);
begin

  if RichEdit1.Modified=true then
    ...
  else
    ...
  Editor.Caption:='Текстовый редактор - Новый документ';
end;

Пара советов. Не пишите, пожалуйста,

if RichEdit1.Modified=true then

,
пишите

if RichEdit1.Modified then

И вот эта проверка

 if trim(RichEdit1.Lines.text)='' then
            begin RichEdit1.Clear; end

не логична. Я почищу документ, а программа мне это не сохранит.

[heny]

спасибо, попытаюсь сделать)))

[heny]

И вот эта проверка
Код:


if trim(RichEdit1.Lines.text)='' then
begin RichEdit1.Clear; end

не логична. Я почищу документ, а программа мне это не сохранит.

а не могли бы Вы еще мне подсказать. Вот я понимаю, что если я почищу документ, то при нажатии на "Создать" должно быть предупреждение: Документ был изменен. Сохранить изменения?
Вот я понимаю как сделать сохранить

RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

а как сделать, если отвечают нет. До этого я просто очищала экран и меняла Editor.Caption, но как выяснилось, то что я потом творю в как будто бы новом документе на самом деле происходит в том, который я якобы закрыла . Понимаю, что должна быть какая та функция, которая сбросит тот документ и начнет новый, но че-т не могу допетрить как это сделать

[Greblin]

У Вас же есть переменная FName, которая хранит имя текущего файла. Чистите её, когда создаёте новый документ, и если больше нигде багов нет, то всё должно быть ок. А вообще лучше покажите код с процедурами Save и SaveAs, а то уже непонятно что там происходит

[heny]

Точно! Все гениальное просто. Иногда долго думаешь над чем-то долго придолго и мозг отказывается понимать простые вещи, хотя ведь до этого я так делала уже

Процедура save:

procedure TEditor.Save1Click(Sender: TObject);
begin
  if FName='' then
      begin
        if SaveDialog1.Execute then
          begin
            RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
            RichEdit1.Modified:=false;
            StatusBar1.Panels[0].Text:='';
            FName:=SaveDialog1.FileName;
            Editor.Caption:='Текстовый редактор - '+FName;
            StatusBar1.Panels[1].Text:='Текст сохранен';
          end;
      end
  else
      begin
        RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
        StatusBar1.Panels[0].Text:='';
        StatusBar1.Panels[1].Text:='Текст сохранен';
    end;
end;

Процедура Save As:

procedure TEditor.SaveAs1Click(Sender: TObject);
     begin
        if SaveDialog1.Execute then
        begin
           RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
           RichEdit1.Modified:=false;
           StatusBar1.Panels[0].Text:='';
           FName:=SaveDialog1.FileName;
           Editor.Caption:='Текстовый редактор - '+FName;
           StatusBar1.Panels[1].Text:='Текст сохранен';
        end;
   end;

А код "Создать" на данный момент выглядит так:

procedure TEditor.Create1Click(Sender: TObject);
begin
   if RichEdit1.Modified then
      begin
         if FName > '' then
          begin
             mes := Application.MessageBox ('Документ был изменен. Вы хотите сохранить изменения в документе?',  'Предупреждение', mb_YesNoCancel);
             if mes = mrYes then
             begin
               Save1Click(Sender);
               RichEdit1.Clear;
               Editor.Caption:='Текстовый редактор - Новый документ';
               FName:='';
             end;
             if mes = mrNo then
             begin
               FName:='';
               Editor.Caption:='Текстовый редактор - Новый документ'
             end;
         end
         else
             mes := Application.MessageBox ('Вы хотите сохранить документ?',  'Предупреждение', mb_YesNoCancel);
             if mes = mrYes then
                 begin
                   Save1Click(Sender);
                   RichEdit1.Clear;
                   FName:='';
                   Editor.Caption:='Текстовый редактор - Новый документ';
                 end;
             if mes = mrNo then
                 begin
                    RichEdit1.Clear;
                    FName:='';
                    Editor.Caption:='Текстовый редактор - Новый документ';
                 end;
             end
   else
     begin
       RichEdit1.Clear;
       FName:='';
       Editor.Caption:='Текстовый редактор - Новый документ';
     end;
end;

и все равно создать какой-то косячный
Если делаешь изменения в уже сохраненном документа (FName > ''), то он открывает окно Execute, хотя должен просто сохранять. Я так понимаю, что проблема вот в этом фрагменте, но я как всегда не могу понять в чем, на мой взгляд все должно работать:

if mes = mrYes then
             begin
               Save1Click(Sender);
               RichEdit1.Clear;
               Editor.Caption:='Текстовый редактор - Новый документ';
               FName:='';
             end;

И еще, понимаю, что совсем завалила вопросами, но не могу ничего с собой поделать, учусь то на заочном, обратиться не к кому
Речь идет о пункте "Открыть". Я прекрасно понимаю, что он должен быть подобен компоненту SaveDialog. Пишу следующий код:

procedure TEditor.Open1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
   begin
     RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
     FName:=OpenDialog1.FileName;
     RichEdit1.Modified:=false;
     StatusBar1.Panels[0].Text:='';
     Editor.Caption:='Текстовый редактор - '+FName;
   end;
end;

Воооооот, но если я меняю открытый документ, то все заканчивается авраийно, методом проб и ошибок, я поняла, что ошибка в этой строке:
FName:=OpenDialog1.FileName;
но если ее убрать, то в заголовке окна не видно, имя открытого документа
вся я измаялась

[Greblin]

Для начала в Save1Click здесь

 else
      begin
        RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
        StatusBar1.Panels[0].Text:='';
        StatusBar1.Panels[1].Text:='Текст сохранен';
    end;

добавьте RichEdit1.Modified := false;Кстати, раз уж у Вас имя файла хранится в FName, то зачем лезть в SaveDialog1.FileName при его сохранении? Не факт что там вообще имя занесено
Если будет глючить дальше, сделайте трассировку. Выделяете эту строчку

   if RichEdit1.Modified then

нажимаете F5, потом F9, делаете все действия, после которых идут глюки. Когда вылезет окно редактора со стрелкой на эту строку, нажимайте F8 для следующего шага. Так Вы поймёте, по каким if'ам идёт прога и будет легче отловить ошибку, чем методом проб и ошибок. Если не получится, прикрепите сюда весь проект, посмотрю, а то щас уже у самого глаза крестиком

[RUSt88]

когда-то давным давно писал текстовый редактор на VB .Net (эх, были времена...), вот часть исходников

Private Sub СоздатьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СоздатьToolStripMenuItem.Click, ToolStripButton1.Click
        If RichTextBox1.Modified Then
            Select Case MsgBox("Будет выполнена очистка текстового поля без сохранения всех изменений. Продолжить?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Question, MsgBoxStyle))
                Case MsgBoxResult.Yes
1:                  RichTextBox1.Clear()
                    path = ""
            End Select
        Else
            GoTo 1
        End If
        Me.Text = fullPath(path)
    End Sub

    Sub saveAs()
        SaveFileDialog1.FileName = System.IO.Path.GetFileNameWithoutExtension(path)
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                If SaveFileDialog1.FilterIndex = 1 Then
                    RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
                    RichTextBox1.Modified = False
                    path = SaveFileDialog1.FileName
                ElseIf SaveFileDialog1.FilterIndex = 2 Then
                    RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.UnicodePlainText)
                    RichTextBox1.Modified = False
                    path = SaveFileDialog1.FileName
                ElseIf SaveFileDialog1.FilterIndex = 3 Then
                    Call save(SaveFileDialog1.FileName, System.Text.Encoding.BigEndianUnicode)
                ElseIf SaveFileDialog1.FilterIndex = 4 Then
                    Call save(SaveFileDialog1.FileName, System.Text.Encoding.UTF7)
                ElseIf SaveFileDialog1.FilterIndex = 5 Then
                    Call save(SaveFileDialog1.FileName, System.Text.Encoding.UTF8)
                ElseIf SaveFileDialog1.FilterIndex = 6 Then
                    Call save(SaveFileDialog1.FileName, System.Text.Encoding.UTF32)
                End If
            Catch ex As Exception
                MsgBox("Не могу сохранить! Файл только для чтения и/или заблокирован другим процессом.", MsgBoxStyle.Exclamation)
            End Try
        End If
    End Sub


    Function fullPath(ByVal fileName As String) As String
        If fileName <> "" Then
            If cap = 1 Then
                Return "[ " & fileName & " ] - RDRsan"
            ElseIf cap = 0 Then
                Return "[ " & System.IO.Path.GetFileName(fileName) & " ] - RDRsan"
            End If
        Else
            Return "RDRsan"
        End If
    End Function

    Sub save(ByVal fileName As String, ByVal Encod As System.Text.Encoding)
        Try
            writer = New System.IO.StreamWriter(fileName, False, Encod)
            writer.Write(RichTextBox1.Text)
            writer.Dispose()
            RichTextBox1.Modified = False
            path = fileName
        Catch ex As Exception
            MsgBox("Не могу сохранить! Файл только для чтения и/или заблокирован другим процессом.", MsgBoxStyle.Exclamation)
        End Try
    End Sub

[heny]

а чем можно заменить RichEdit1.Lines.SaveToFile(SaveDial og1.FileName);, похоже в этом и проблема

[Greblin]

Заменить это особо нечем. Кстати, насколько я помню, может получиться так, что имя файла будет без расширения, тогда надо дополнительно приписывать его в зависимости от SaveDialog1.FilterIndex