主窗体上建立的对象有Memol、Buttonl~3、OpenDialogl,SaveDialogl。 子窗体上建立的对象有Labell、BitBtml(Yes)、BitBtm2(No)。 单击“打开文件”按钮(Buttonl),会弹出打开文件对话框。用户指定一个文本文件后，文 件内容加载到编辑区中(Memol)。 单击“保存文件”按钮(Button2),会弹出保存文件对话框。用户输入文件名后，缓冲区 (Memol)内容保存到指定文件中。 单击“退出”按钮(Button3),会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结 束；如果按“No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation ($R *dfm) uses ① procedure TForml.Button1Click(Sender:TObject);//打开文件 begin if② then memol.Lines.LoadFromFile (3 ) end; procedure TForml.Button2 Click(Sender:TObject);/保存文件 begin if savedialogl.Execute then ④ (savedialog1.FileName); end; procedure TForm1.Button3Click(Sender:TObject);// begin if⑤- =mrYes then close; end; end. 1478主窗体上建立的对象有Memol , )3uttonl ^-3 , OpenI}ialogl , Savel)ialogl o 子窗体上建立的对象有 Labell,Bi tBttnl(Yes)、I3i tBtm2<No) o 单击，’打开文件”按钮(Buttonl )，会弹出打开文件对话框。用户指定一个文本文件后，文 件内容加载到编辑区中(Memol ) o 单击“保存文件”按钮(Button2)，会弹出保存文件对话框。用户输入文件名后，缓冲区 ( Memol)内容保存到指定文件中。 单击“退出”按钮(Button3 )，会弹出确认对话框(Form2 )。如果用户按“Yes”键，程序结 束 ;如果按“},o}}键 ，返回主窗体。 下面是 Unitl的代码部分，请在下划线处完成程序填空。 implementation {$R ，.dfm} u ses ① ; procedure TForml. ButtonlClick (Sender;TObject);//打开文件 begin if② then memol. Lines. LoadFromFile(③ ); end; procedure TForml. 13utton2Click(Sender;TObject);//保存文件 begin if savedialogl. Execute then ④ (savedialogl. FileName); end; procedure begin if⑤ - close; end; end. TForml. Button3Click(Sender; TObject) ; //退出 二tnrYes then 1478