Procedure KeyToUpper(Var Key:Char); begin IF Key in['a'..'z'] THEN Key := Chr(Ord(Key) - 32) Else Key := Key; end;
本文介绍了一个简单的程序过程ProcedureKeyToUpper, 它的功能是将输入的小写字母转换为大写字母。如果输入的字符不在小写字母范围内，则保持原样输出。此过程使用了ASCII码值来实现字母大小写的转换。
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
