Delphi program 13 memo-editor

テキストエディタ（簡易版メモ帳）の作成

7. ファイルの〔上書き保存(S)〕メニュー
   　ファイルの保存には、既存ファイルを同じファイル名で保存する場合と新規ファイルや既存ファイルにファイル名を付けて（変更して）保存する場合とで処理が分かれる。 まず、より単純なファイルの〔上書き保存(S)〕の方から考える。このメニューは編集中のファイルを現在のファイル名のままで保存する処理である。

• ファイルの〔上書き保存(S)〕のイベントハンドラ
  1. Form1で〔ファイル(F)〕を選択する。サブメニューから〔上書き保存(S)〕を2回選択する。
  2. オブジェクトFileSave1のOnClickイベントハンドラがコードエディタに生成されるので，次の1行を書く。
  3. 〔上書き保存(S)〕のプログラムコード（その1）

     procedure TForm1.FileSave1Click(Sender: TObject);
     begin
             Memo1.Lines.SaveToFile(MyFilename);  //編集中のファイル名で保存
     end;
     

• ファイルの保存（書き出し）

    ファイルを保存するにはSaveToFileメソッドを使う。 SaveToFileメソッドは、Memoコンポーネントの各行を引数MyFilenameで指定したファイル名で保存する。 ここで、MyFilenameは、既にimplementation部で宣言されたグローバル変数で、現在編集中のファイル名、例えば、"example.txt"が格納されている。

  Memo1.Lines.SaveToFile( Myfilename ) ;

  この〔上書き保存(S)〕メニューは、編集中のメモ帳にファイル名が付けられている場合に編集途中に上書き保存することを想定している。 しかし、新規ファイルを編集中に、既定値のファイル名「新しいメモ1」のときにも呼び出されるかもしれない。これはimplementation部で定数NewFilenameに与えたものである。 このような場合は、一度ファイルに〔名前を付けて保存(A)〕を実行して、新規ファイルのファイル名をユーザに入力させる指示を出すのが親切であろう。
  ファイルの〔上書き保存(S)〕メニューのイベントハンドラを次のように改良しよう。

  4. 〔上書き保存(S)〕のプログラムコード（その2）
     

     procedure TForm1.FileSave1Click(Sender: TObject);
     begin
          if MyFilename = NewFilename then //新規ファイルなら
             FileSaveAs1Click(Sender)         //手続き〔名前を付けて保存〕を呼び出す
          else                              //そうでなければ
             Memo1.Lines.SaveToFile(MyFilename);  //編集中のファイル名で保存
     end;
     

  この段階では実行しないように注意しよう。 ここで実行（コンパイルandラン）すると、この〔上書き保存(S)〕をコンパイルするステップでエラーが発生する。〔上書き保存(S)〕のプログラムからまだ書いていない〔名前を付けて保存(A)〕であるFileSaveAs1(...)を呼び出しているからである。

8. ファイルの〔名前を付けて保存(A)〕メニュー

  それではFileSaveAs1(...)を定義する。ファイルに名前を付けて保存するプログラムのコード は、最初にSaveダイアログボックスを呼び出して、ユーザにファイル名を入力してもらい、Executeの値を調べ、入力があればそれをファイル名として取得する。 そして、上書き保存を呼び出して、そのファイル名で保存すればよい。 したがって、次のような6行のコードを書く。

1. 〔名前を付けて保存(A)〕のプログラムコード (その1)

   procedure TForm1.FileSaveAs1Click(Sender: TObject);
   begin
        if SaveDialog1.Execute then
        begin
             MyFilename := SaveDialog1.Filename;　　//ファイル名を取得
             Caption := MyCaption + MyFilename;　　//タイトルバーに表示
             FileSave1Click(Sender)   // 手続き〔上書き保存(S)〕を呼び出し、そのファイル名で保存
        end;
   end;
   

2. このプログラムを実行すると、次の右図のようなSaveダイアログボックスが開く。 〔ファイル名(N)〕の欄に入力したファイル名が既に存在するファイル名と同じ場合、〔保存(S)〕ボタンを押すとそのまま上書き保存してしまう。 既存のファイルを消去しては困ることもあるので、存在するファイル名で保存しようとしたら、左図のような確認ダイアログを表示するようにしよう。 ついでに、〔ファイル名(N)〕の欄には空白ではなく、現在開いているファイル名を既定値として入力しておくことに変更する。

Fig.1 確認

Fig.2 Save Dialog

• 再帰的呼び出し：

  ファイルの〔上書き保存(A)〕の手続き FileSave1Click (Sender: TObject) は，その中からファイルに〔名前を付けて保存(S)〕する手続き FileSaveAs1Click (Sender: TObject) を呼び出して書かれている。 一方，手続き FileSaveAs1Click (...) の中でも 手続き FileSave1Click (...) を呼び出している。

  この２つのイベントハンドラは互いに相手を呼び出し合っている，このような呼び出しを「再帰的呼び出し」または「再帰的手続き (recurcive procedure)」という。 上の例は自分自身を間接的に呼び出しているが，自分自身を直接に呼び出すことも可能である。
  ある対象に対して何らかの処理を行ないたいとき，より簡単な場合に同じ処理を行なった結果を再利用して全体に対する処理を構成できる場合には，再帰的手続きを用いてわかりやすい自然なプログラムを書くことができる。