实验7：BeginIf RadoButton1.Checked=true thenBeginWith Open Dialog1 doBeginFilter:=’文本文件’(*.txt)*.txt’ ;DefaultExt:=’txt’;Filename:=”;Options:=[ofHideReadOnly,ifFilemustexist,ofpathmustexist];If execute thenIf ofextensiondifferent in options thenMessigedlg(不存在扩展名为.txt的文件’,mterror,[mbok],0) ElseMemol1.Lines.loadfromfile(filename);End;EndIf radiobutton2.cheaked=true thenBeginWith optiondialog1 doBeginFilter:=’任何类型文件（*.*）|*.*‘；Filename:=”;Options:=[];If execute thenMemo1.lines.loadfromfile(filename);End;End;End;Procedure tform1.button2click(sender:tobject);BeginIf radiobutton1.checked=true thenBeginWith savedialog1 doBeginFilter:=’文本文件(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;Options:=[ofhidereadonly,ofpathmustexist];If execute thenIf ofextensiondifferent in options thenMessagedlg(‘不是扩展名为.txt的文件’,mterror,[mbok],0) ElseMemo1.lines.savetofile(filename);End;If radiobutton2.checked=true thenBeginWith savedialog1 doBeginFile:=’任何类型文件(*.*)|*.*’;Filename:=”;Options:=[ofpathmustexist];If execute thenMemo1.lines.savetofile(filename);End;End;End;Procedure tform1.button3click(sender:tobject); BeginWith fondialog1 doBeginOptions:=[fdeffects,fdtruetypeonly,fdforcefontexist]; If execute thenMemo1.font:=font;End;Procedure tform1.button4click(sender:tobject);BeginClose;End;实验8Procedure twinform.button1.checked=true thenBeginIf radiobutton1.checked=true thenBeginWith openfiledialog1 doBeginFilter:=’文本文件(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;Restoredirectory:=true;If showdialog=system.windos.forms.dialogresult.ok thenRich textbox1.loadfile(filename,richtextboxstreamtype.plaintext); End;End;If radiobutton2.checked=true thenWith optionfiledialog1 doBeginFilename:=’任何类型文件（*.*）|*.*‘；Filename:=”;Restoredictory:=true;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.loadfile(filename,richtextboxstreamtype.plaintext);End;End;End;Proceduretwinform.button2_click(sender:system.object;e:system.eventargs);BeginWith savefiledialog1.doBeginFilter:=’文本文件’(*.txt)|*.txt’;Defaultext:=’txt’;Filename:=”;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.savefile(filename,richtextboxstreamtype.plaintext);End;End;If radiobutton2.checked=true thenBeginWith savefiledialog1 doBeginFilter:=’任何类型文件’(*.*)|*.*’;Filename:=”;If showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.savefile(filename,richtextboxstreamtype.plaintext);End;End;End;Proceduretwinform.button3_chick(sender:system.object;e:system.eventargs);BeginWith fontdialog1 do beginIf showdialog=system.windows.forms.dialogresult.ok thenRichtextbox1.font:=font;End;End;Proceduretwinform.button4_click(sender:system.object;e:system.eventargs);BeginClose;End;实验9Procedure tform1.new1click(sender:tobject);BeginForm1.caption:=’文档1’;Txtname1:= ’文档1’;Form1.richedit1.lines.clear;End;Procedure tform1.open1click(sender:tobject);BeginIf form1.opendialog1.execute thenBeginForm1.richedit1.lines.loadfromfile(form1Opendialog1.filename);Form1.caption:=form1.optiondialog1.filename;End;End;Procedure tform1.save1click(sender:tobject); BeginIf richedit1.modified thenIf form1.caption<>’文档1’thenForm1.richedit1.lines.savetofile(txtname) Else if form1.savedialog1.execute then BeginTxtname:=form1.savedialog1.filename; Form1.richedit1.lines.savetofile(txtname); End;End;Procedure tform1.exit1click(sender:tobject); BeginClose;End;Procedure tform1.printclick(seder:tobject); BeginForm1.printdialog1.execute;End;Procedure tform1.cut1click(sender:tobject); BeginForm1.richedit1.undo;Procedure tform1.cut1click(sender:tobject);BeginForm1.richedit1.cuttoclpboard;End;Procedure tform1.copyclick(sender:tobject);BeginForm1.richedit1.copytoclipboard;End;Proceduretform1.richedit1.paste1click(sender:tobject); BeginForm1.richedit1.pastefromclipboard;End;Procedure tform1.replacedialog1.extcute;End;Procedure tform1.toolbutton1click(sender:tobject); BeginForm1.caption:=’文档1’;Txtname:= ’文档1’;Form1.richedit1.lines.clear;End;Procedure tform1.toolbutton2click(sender:object);If form1.opendialog1.execute thenBeginIf form1.opendialog1.execute thenBeginForm1.richedit1.lines.loadfromfile(form1.opendialog1.filename); Form1.caption:=form1.opendialog1.filename;End;End;Procedure tform1.toolbutton1click(sender:tobject);BeginIf richedit1.modified thenIf form1.caption<>’文档1’thenForm1.richedit1.lines.savetofile(txtname);Else if form1.savedialog1.execute thenBeginTxtname:=form1.savedialog1.filename;Form1.richedit1.lines.savetofile(txtname);End;End;Procedure tform1.toolbutton4click(sender:tobject);BeginForm1.printdialog1.execute;End;Procedure tform1.toolbutton5click(sender:tobject); BeginForm1.richedit1.cuttoclipboard;End;Procedure tform1.toolbutton6click(sender:tobject); BeginForm1.richedit1.copytoclipboard;End;Procedure tform1.toolbutton7click(sender:tobject); BeginForm1.richedit1.paste1fromclipboard;End;Procedure tform1.toolbutton8click(sender:tobject); BeginForm1.richedit1.font.style:=[fsbold];End;Procedure tform1.toolbutton9click(sender:tobject); BeginForm1.richedit1.font.style:=[fsunderline];End;Procedure tform1.toolbutton10click(sender:tobject);BeginForm1.richedit1.font.style:=[fsitalic];End;Procedure tform1.formcreat(sender:tobject);BeginForm1.caption:=’文档1’;txtname:=’文档1’;form1.statusbar1.panels[0].text:=txtname;form1.statusbar1.panels[1].text:=timetostr;form1.statusbar1.panels[2].text:=datetostr;end;实验十Proceduretform.menultem2_click(sender:system.object;e:system.eventargs);BeginText:=’文档1’;Txtname:=’文档1’;Richtextbox1.clear;End;Proceduretform.menultem3_click(sender:system.object;e:system.eventargs);BeginIf openfiledialog1.showdialog=system.windows.forms.dialogrsult.ok thenBeginRichtextbox1.loadfile(openfiledialog1.filename,richtextboxstreamty pe.plaintext);Text:=openfiledialog1.filename;End;End;Proceduretform.menultem4_click(sender:system.object;e:system.eventargs);BeginIf richtextbox1.modidied thenIf text<>’文档1’thenRichtextbox1.savefile(txtname);Else if savefiledialog1.showdialog=system.wimdows.forms.dialogresutl.ok then BeginTxtname:=savefiledialog1.filename;Richtextbox1.savefile(txtname);End;End;Proceduretform.menultem6_click(sender:system.object;e:system.eventargs);BeginClose;End;Proceduretform.menultem8_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.undo;End;Proceduretform.menultem9_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.cut;End;Proceduretform.menultem10_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.copy;End;Proceduretform.menultem11_click(sender:system.object;e:system.eventargs);BeginRichtextbox1.paste;End;Proceduretwinform.twform_load(sender:system.object;e:system.event);BeginText:=’文档1’;txtname:=’文档1’;statusbar1.panels[0].text:=txtname;statusbar1.panels[1].text:=timetostr(time);statusbar1.panels[0].text:=datetostr(date);end;实验十一Procedure tformmainMminewexecute(sender:tobject);BeginControlbar1.visible:=false;Statusbar1.visible:=tfrmeditor.create(self);Procedure tformmaintbopenclick (sender:tobject);beginopendialog1.execute;if opendialog1.filename<>”thembegincontrobar1.visible:=false;statusbar1.visible:=false;with tformeditor.create(self)doopenfile(opendialog1.filename);end;end;Procedure tformmainmmihelpextcute(sender:tobject);consthelp_tab=15;contents_active=-3;beginapplication.helpcommand(help_tab,contents_active); end;application.helpcommand(help_tab,contents_active); end;procedure tfmmain.mmiaboutexecute(sender:tobject);beginwith taboutbox.create(self)dotryshowmodal;finallyfree;end;end;procedure tfrmmain.formtreate(sender.tobjec);beginapplication.onhint:=showhint;application.helpfile:=exetracefilepath(application.exename)+textedi tor.hlp’;end;。