當用戶在多個頁面中進行切換時，程序應當保證對當前頁面進行編輯。 例如在多頁編輯器中，用戶選中某一頁面，即可對該頁面中的文件進行編輯、尋找、設置、打印等。為了實現這一功能，定義了一個TMemo類型的變量：Memo1,該變量沒有實例化，每次調用DynaAdd,DynaDel方法均定把TabIndex指定頁面的Memo指針傳給Memo1。這樣在程序運行中，始終有一個實例化的Memo指針賦給Memo1，而菜單中的文本編輯功能均對Memo1進行操作。這種指針傳遞就能保證對當前頁進行操作。

　　定義了TDynaPage后，只需在Open,Close菜單項中加入如下代碼，即可方便的在用戶打開關閉文件時創建成刪除頁面。

　　procedure TEditForm.Close1Click(Sender: TObject);

　　begin

　　if DynaPage.CurPage<>0 then

　　DynaPage.Del(Notebook1,DynaPage.CurPage);

　　if Notebook1.Pages.count = 1 then

　　Close1.Enabled:=False;

　　end;

　　procedure TEditForm.Open1Click(Sender: TObject);

　　begin

　　if OpenDialog1.Execute then

　　begin

　　if not(OpenFile or NewFile) then

　　begin

　　OpenFile:=true;

　　Open(OpenDialog1.FileName);

　　Notebook1.Pages.Strings[0]:=ExtractFileName( OpenDialog1.FileName);

　　TabSet1.Tabs:=Notebook1.Pages;

　　end

　　else

　　begin

　　DynaPage.DynaAdd( Notebook1, ExtractFileName(OpenDialog1.FileName));

　　Open(OpenDialog1.Filename);

　　if Notebook1.Pages.count > 1 then

　　Close1.Enabled:=True;

　　end;

　　end;

　　end;

　　4.3 文本編輯部件及應用

　　4.3.1 TEdit 部件

　　TEdit部件是一個標準的編輯框，用戶可在編輯框中輸入數據。編輯框也可向用戶顯示數據。編輯時只能讀寫一行信息。

　　TEdit的Text屬性存放著用戶輸入的數據或向用戶顯示的數據，Modified屬性用以標識 Text的數據是否改變，可通過設置Maxlength屬性值來限制用戶輸入字符的個數量，CharCase

　　屬性可定義編輯框中字符的大小寫。如果設計者想禁止用戶輸入，可將ReadOnly屬性設置成真值。編輯框也能用做密碼輸入框。通過設置PassWordChar 屬性的值，可將用戶輸入的字符在編輯框中顯示成指定的字符，如"*"號等。編輯框還可以進行字符選擇操作、粘貼、復制和剪切操作。

　　4.3.2 TMemo 部件

　　TMemo部件與TEdit部件類似，能向用戶顯示數據，用戶也可輸入數據。與TEdit 部件

　　不同的是，TMemo部件可以處理多行文本，因此主要用于編輯文件。

　　TMemo的Text屬性只能在運行時才能訪問。Modified屬性用以標識Text的數據是否改

　　變，通過設置MaxLength屬性值來限制用戶輸入字符的數量。

　　如果把文本當成一個整體進行訪問，可使用Text屬性;若想逐行訪問，則要使用Lines屬性。Lines屬性能對文件更方便地進行訪問。Lines是TStrings類型的，因此可使用Add 、Delete方法，例如在Memo1中加入一行字符串的代碼如下：

　　Memo1.Lines.Add('Another line is added');

　　通過Lines屬性可以方便地把文件讀入部件中，例程中使用下面的代碼將文件讀入Memo1：

　　Memo1.Lines.loadFromFile(Filename).

　　從TMemo 部件中剪切、復制、粘貼文本非常方便，只需使用 CutToclipboard ，CopyToClipBroad,PasteFromClipBoard方法，其代碼如下：

　　Memo1.CopyToClipboard

　　Memo1.CutToClipboard

　　Memo1.PasteFromClipboard

　　TMemo有一些屬性，用以控制文本的顯示效果。ScrollBars屬性可以定義部件的水平滾動條和垂直滾動條。當文件字體改變時，使用AutoSize屬性可使部件大小做相應的調整。設置WordWrap屬性可以實現自動換行。

　　例程中Edit|WordWrap菜單項提供了設置WordWrap的功能，并可根據WordWrap的值決定滾動條的形式。當WordWrap為真時，不需要水平滾動條， 并在菜單中作出檢查記號。

　　其代碼如下：

　　procedure TEditForm.SetWordWrap(Sender: TObject);

　　begin

　　with Memo1 do

　　begin

　　WordWrap := not WordWrap;

　　if WordWrap then

　　ScrollBars := ssVertical else

　　ScrollBars := ssBoth;

　　WordWrap1.Checked := WordWrap;

　　end;

　　SetEditRect;

　　end;

　　TMemo部件提供了一組關于選擇文本的屬性和方法。如果想在部件成為當前控件時自動選擇文本，可設置 AutoSelect 屬性。運行時可用SelectAll 方法選中部件的全部文本。 Selstart屬性返回選中文本的開始位置，SelText 包含著被選中的文本。SelLength屬性返回選中文本的長度，這兩個屬性可用于字符串的查找和替換。下一節將詳細討論。

　　TMemo的Modified屬性是一個運行時才能得到的屬性，可判斷部件被創建時或Modified屬性最后一次設置成假值之后，部件上的文本是否修改。如果修改了，Modified 將設成真值，反之假值。

　　例程中在關閉文件時將測試文件的modified屬性，如果文件修改后尚未保存， 將出現對話框，詢問用戶是否保存文件，其代碼如下：

　　procedure TEditForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

　　var

　　DialogValue: Integer;

　　FName: string;

　　begin

　　if Memo1.Modified then

　　begin

　　FName := Caption;

　　DialogValue := MessageDlg(Format(SWarningText, [FName]), mtConfirmation,

　　[mbYes, mbNo, mbCancel], 0);

　　case DialogValue of

　　id_Yes: Save1Click(Self);

　　id_Cancel: CanClose := False;

　　end;

　　end;

　　end;

　　4.4 常用對話框的使用

　　Delphi的可視部件類庫(Vistual Component Liberty)中，有一組對話框部件，在對象選擇板的Dialog 頁面中可以找到。 本節著重介紹與文件編輯有關的字體對話框(TFontDialog Componement)，查找對話框(TFindDialog Componement) ，替換對話框(TReplace Dialog Componement)，文件對開對話框(TOpenDIalog Componement).

　　應用這幾個對話框可對文件進行字體設置、查找、替換等操作，但需要編寫相應的代碼。

　　4.4.1字體對話框部件

　　字體對話框部件在應用程序中產生字體對話框， 用戶可在對話框中進行字體選擇和屬性設置。用戶選擇字體并按下OK按鈕之后，有關信息便貯存在部件的Font屬性中。

　　應用程序可通過調用字體對話框的Execult方法來顯示對話框，當用戶選擇OK按鈕時，Execult返回True值，否則返回Flase值。

　　應用程序可以使用Options屬性來定義字體對話框的顯示和行為方式：例如可在對話框中定義一個幫助按鈕或指定出現在字體列表框中的字體。有關Options的主要取值如下表4.1：

　　表4.1 字體對話框的Options取值及含義

　　例程中(Edit/Font)菜單具有設置文本字體的功能，其代碼如下：

　　procedure TEditForm.SetFont(Sender : TObject);

　　begin

　　FontDialog.Font := Memo1.Font;

　　if FontDialog1.Execult then

　　Memo1.Fout := FontDialog1.Font;

　　SetEdit Rect;

　　end;

　　4.4.2查找對話框部件

　　查找對話框部件為應用程序提供查找對話框， 用戶可使用查找對話框在文本文件中查找字符串。

　　可用Execult方法顯示查找對話框，如圖4.8。應用程序要查找的字符放到FindText屬性中。Options 屬性可決定查找對話框中有哪些選項。例如， 用戶可選擇是否顯示匹配檢查框。Options的常用選項如表4.2所示。

　　如果用戶在對話框中輸入字符并選擇FindNext按鈕，對話框將發生OnFind事件。

　　表4.2 查找對話框的Options屬性的取值及含義

　　在OnFind事件中可使用Options屬性來決定以何種方式查找。Find方法響應查找對話框的OnFind事件。

　　procedure TEditform.Find(Sender: TObject);

　　begin

　　with Sender as TFindDialog do

　　if not SearchMemo(Memo1, FindText, Options) then

　　ShowMessage('Cannot find "' + FindText + '".');

　　end;

　　其中SearchMemo函數是Search單元中定義的，SearchMemo可在TEdit,TMemo，以及其它TCustomEdit派生類中查找指定的字符串。查找從控件的脫字號(^)開始， 查找方式由Options決定。如果向后查找從控件的StlStart處開始，如果向前查找則從控件的SelEnd處查找。

　　如果在控件中找到相匹配的字符串，則字符串被選中，函數返回真值。如無匹配的字符串，函數返回假值。

　　特別注意的是TEdit,TMemo中有一個HideSeletion屬性，它決定當焦點從該控制轉移至其它控制時，被選中的字符是否保持被選中的狀態。如果是真值，則只有獲得焦點才能保持被選中狀態。查找時，焦點在查找對話框上，因此要想了解查找情況，必須將HideSeletion設成假值。控制的缺省值為真值。