Delphi 大小写转换模块源代码.rar

delphi编写的大小写转换-程序源码，自动将用户输入的大写字符转换了小写，以一个用户注册程序为例，将用户的登录名转换为小写字母，请在Delphi7环境下测试。以下是主要的代码： 　　procedure TForm1.Edit2Exit(Sender: TObject); 　　begin 　　 if CheckBox1.Checked=true then 　　 edit2.text:=LowerCase(edit2.text) 　　 else edit2.text:=Uppercase(edit2.text) 　　end; 　　procedure TForm1.Edit3Exit(Sender: TObject); 　　begin 　　 if CheckBox1.Checked=true then 　　 edit3.text:=LowerCase(edit3.text) 　　 else 　　 edit3.text:=Uppercase(edit3.text) 　　end;