Delphi program 13 memo-editor

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

• メインメニュー・コンポーネントの設定：

  そのためのユーザ・インターフェースを用意するツールとして，ここではメインメニュー・コンポーネント(Standard pageにある。p.229)を利用する。

  1. MainMenuコンポーネントをForm1に配置する。これは実行時には非表示になるので位置はどこでもよい。
  2. MainMenuコンポーネントをダブルクリックして，メニューデザイナを開く。(p.230)
  3. メニューデザイナでは，次に追加する項目の位置でEnterキーを押すと，フォーカスがObject inspectorに移動して，必要なpropertyを設定できる。ファイルとヘルプの２つのメニューを追加するため，以下のようなプロパティ（Caption, Name）を設定する。

     Table 2

     Caption	Name	意味
     ファイル(&F)	設定しない	ファイルメニューを開く
     新規作成(&N)	FileNew1
     開く(&O)	FileOpen1	既存のファイルを開く
     上書き保存(&S)	FileSave1	編集中のファイル名で保存
     名前を付けて保存(&A)	FileSaveAs1	編集中のファイルを別のファイル名で保存
     -	設定しない	区切（ハイフン"-"を入れる）
     印刷(&P)	FilePrint1	開いたファイルを印刷
     -	設定しない	区切（ハイフン"-"を入れる）
     終了(&X)	Exit1	メモ帳を終了
     ヘルプ(&H)	設定しない	ヘルプメニューを開く
     トピックスの検索(&H)	設定しない	ヘルプ
     -	設定しない	区切（ハイフン"-"を入れる）
     バージョン情報(&A)	設定しない	メモ帳の情報

     【注】ここで、”設定しない”とあるのは後でイベントを定義する予定のない項目である。Captionの文字列に”&記号＋1文字”を指定すると、メニューに対してアクセラレータ・キー(p.233)を設定することができる。

  4. メニュー項目の設定が終ったら，メニューデザイナを閉じる。設定を変更する場合もメニューデザイナーを利用する。

  ここまで進んだら「メモ帳」を実行してみる。メインメニューが表示され，〔ファイル(F)〕メニューを選択するとサブメニューが開き，各項目をマウスやキーで選択できるだろう。 しかし，まだイベントが定義されていないので，メニュー項目を選択しても何も実行されない。

• メニュー項目とイベントの関連付け：

次の段階では，メニュー項目の選択に対応するプログラムコードを書き，両者を関連付ける。そのためには，これまでボタンコンポーネントにイベントハンドラを定義したように，メニュー項目にOnClickイベントハンドラを定義すればよい。

最初の例として，〔ファイル(F)〕→〔終了(X)〕の順にメニュー項目を選択することに対する、イベントハンドラのコードを記述する手順を説明する。

1. Form1で〔ファイル(F)〕を選択して〔ファイル(F)〕メニューを開く。サブメニューから〔終了(X)〕を2回選択する。
2. オブジェクトExit1のOnClickイベントハンドラがコードエディタに生成されるので，
3. フォームを閉じるメソッドであるCloseの１行を書く。Exit1は〔終了(X)〕のNameプロパティ(表2)である。
4. 〔終了(X)〕のプログラムコード（その１）
   

   procedure TForm1.Exit1Click(Sender: TObject);
   begin
        Close ;
   end;
   

終了するには，編集中のファイルの保存をどうするか，などを記述する必要があるが，そのような正しい終了処理については後の「終了処理」や「例外処理」のところで考察する。

5. ファイルを開く，保存する

  次のステップとしては，「簡易版メモ帳」で編集したテキストファイルを保存したり，再編集するためにファイルをメモ帳に読み込んでファイルを開く機能，つまりファイルの入力・出力機能を追加する作業に進む。

ファイルの入力・出力を扱うには，component palletのDialogsページにあるWindows common ダイアログボックスの中から次のコンポーネントを利用する。

• Open ダイアログボックス：ファイル入力に必要なファイル名を取得する。(p.183)
• Save ダイアログボックス：ファイル出力に必要なファイル名を取得する。(p.180, Fig.2)

• Open / Save ダイアログボックスの設定：
1. Form1上の適当な位置に Open および Save ダイアログボックスをそれぞれ１つずつ配置する。両者とも実行時には非表示となる。
2. 各ダイアログボックスのプロパティを次のように設定する。

   Table 3

   object(o)	property(p)	value	意味
   Open	Name	OpenDialog1	既定値(default)を使う
   	FileName	新しいメモ1	ファイル名の既定値として表示
   	DefaultExt	txt	ファイル名の拡張子の既定値
   	Filter	*.txt;*.*;など	フィルタの設定を参照のこと
   Save	Name	SaveDialog1	既定値を使う
   	DefaultExt	txt	ファイル名の拡張子の既定値
   	Filter	*.txt;*.*;など	次のフィルタの設定を参照のこと

3. フィルタの設定(p.182)

  フィルタを設定するには，Form1上のOpen(またはSave)ダイアログボックスを選択し， プロパティのFilterの項の右にある値欄の［...］ボタンを2回選択する。 教科書の図3-18の「フィルタの設定」ダイアログボックスが開く。ここで次のようにファイルのフィルタを設定する。種類はいくつ書いてもよい。

Table 4

フィルタ名	フィルタ	注
テキストファイル(*.txt)	*.txt	Filterの指定には半角英文字を入力する、以下同じ
データファイル(*.dat)	*.dat
Delphiファイル(*.dpr, *.pas)	*.dpr; *.pas	区切はセミコロン";"
すべてのファイル(*.*)	*.*

6. ファイルを〔開く(O)〕メニューのイベントハンドラ

  ファイルを〔開く(O)〕メニューが選択されたとき，Openダイアログボックスを開き（呼び出し），ファイル名の欄に入力されたファイル名を取得し，それをフォーム1のタイトルバーに表示する。さらに簡易版メモ帳にそのファイルを読み込んで表示する。

• 実際に、このプログラムコードを書いてみる。
  1. Form1で〔ファイル(F)〕を選択する。サブメニューから〔開く(O)〕を2回選択する。
  2. オブジェクトFileOpen1のOnClickイベントハンドラがコードエディタに生成されるので，次の5行を書く。 ここで、FileOpen1は〔開く(O)〕のName property(表2)である。
  3. 〔開く(O)〕のプログラムコード（その1）
     

     procedure TForm1.FileOpen1Click(Sender: TObject);
     begin
          if OpenDialog1.Execute then   //ファイル名が入力されたなら
          begin
             Caption := OpenDialog1.Filename ;    //ファイル名を取得し，タイトルバーに表示
             Memo1.Lines.LoadFromFile(Caption) ;  //ファイルの読み込み
          end;
     end;
     

• 簡易版メモ帳の初期設定:

    そもそも「簡易版メモ帳」を起動したとき，最初はまだメニューが選択されていない状態である。Table 1でMemoコンポーネントのプロパティを空白の編集画面を表示するように設定した。したがって，この状態ではForm1のCaptionに設定した"メモ帳"が新しいファイル名として表示される。 この"メモ帳”という用語をForm1のタイトルバーの先頭に常に表示し，開いたファイル名 MyFilename をその横に表示するようにしたい。そして，まだ何も編集が行なわれていない空白の画面の状態のときは，新しいファイル名（既定値）として「新しいメモ1」を表示させたいとする。
  この３つの文字列はプログラムの別々のprocedureで参照されるであろう。そこでこれらをプログラムのimplementation部に共用データとして定義しておく。

  4. 共用定数と共用変数の定義（その1）

     implementation
     {$R *.DFM}
     const
          NewFilename = '新しいメモ1' ; // 新規ファイルのファイル名
          MyCaption = 'メモ帳: ' ;      // タイトルバーに付けるアプリケーション名
     var
          MyFilename: String ;          // 編集中のファイル名
     

      
  5. 簡易版メモ帳の起動時に行なう初期設定として，Form1のOnCreateイベントハンドラに次の2行のコードを書いておく。(手順はIII節のOnResizeイベントの場合を参照のこと)
     Form1 作成時のプログラムコード（その1）
     

     procedure TForm1.FormCreate(Sender: TObject);
     begin
          Caption := MyCaption + NewFilename ;
          MyFilename := NewFilename ;
     end;
     

• ファイルの入力(読み込み)

  メモ・コンポーネントにファイルを読み込むにはLoadFromFileメソッドを使う。引数には、読む込む（ロードする）ファイル名またはそれが記録されているファイル変数名を指定する。例えば、

LoadFromFile( 'example.txt' );

Memoコンポーネントが編集できるファイルはその拡張子が *.txt, *.dat, *.pas, *.dpr, *.dof, などのテキストファイルである。OfficeやWWWでよく見かける *.csv, *.html, *.java, *.pl などもテキストファイルである。 このコンポーネントはロードしたファイルを文字列リスト(p.157, p.167)として扱う。ロードしたファイルをMemo1の編集画面に表示するには，そのLinesプロパティに代入すればよい。
Memo1.Lines.LoadFromFile( 'example.txt' );

6. ここまでの段階で〔開く(O)〕のイベントハンドラを次のように修正する。
   〔開く(O)〕のプログラムコード（その2）
   

   procedure TForm1.FileOpen1Click(Sender: TObject);
   begin
        if OpenDialog1.Execute then     //ファイル名が入力されたなら
        begin
           MyFilename := OpenDialog1.Filename;    //ファイル名の取得
           Caption := MyCaption + MyFilename;     //タイトルバーに表示
           Memo1.Lines.LoadFromFile(MyFilename);  //ファイルの読み込み
        end;
   end;
   

7. 修正したら，「メモ帳」を実行してみる。メモ帳のタイトルが起動時には「メモ帳：　新しいメモ1」になっており，実際に何かファイルを開いてみることもできるはずである。

ファイルを開くのエラー処理:

  ここまでの段階で、もし存在しないファイル名を「開く」と指定したらどうなるだろうか？ Openダイアログボックスは，ほぼ自動的にファイルをロードし、かつ開けない場合にも簡単なエラー処理をすることも組込まれている。 エラー処理については後の「例外処理」の節で説明する。