312顺序控制结构(2) procedure TForm1. Button2Click(Sender: TObject) var s: string; begin s: =editText edt.Text:= uppercase(s);∥转换成大写 end 2.分析 在窗体的建立事件中,首先将文本框的内容进行清空(以便输入)。在 button1按钮事件中有两个语句,先将文本框的内容赋给一个字符串变量s, 然后通过一个 owercasel函数将其转换成小写后再在文本框中显示。而 button2按钮事件和butn1基本类似,惟一不同的是将其转换成大写而已。可 以看到,在每一个事件代码中,其语句都是顺序执行的。这就是这种结构的 特点 7'Forml 3.运行结果 WR242EASDXASFASDFR 图3-2大小写转 换程序运行结果) 程序运行结果如图3-2所示。 Inprise Dephi3.1.2 顺序控制结构(2) procedure TForm1.Button2Click(Sender: TObject); var s:string; begin s:=edit1.Text; edit1.Text:=uppercase(s); //转换成大写 end; 2. 分析 在窗体的建立事件中，首先将文本框的内容进行清空（以便输入）。在 button1按钮事件中有两个语句，先将文本框的内容赋给一个字符串变量s， 然后通过一个lowercase函数将其转换成小写后再在文本框中显示。而 button2按钮事件和button1基本类似，惟一不同的是将其转换成大写而已。可 以看到，在每一个事件代码中，其语句都是顺序执行的。这就是这种结构的 特点。 3. 运行结果 程序运行结果如图3-2所示。 (图3-2 大小写转 换程序运行结果)