var ss,s: string; begin ss := 'Delphi'; s := UpperCase(ss); ShowMessage(s); //DELPHI s := LowerCase(ss); ShowMessage(s); //delphi end;SysUtils 单元下的公用函数目录
SysUtils.UpperCase、SysUtils.LowerCase 大小写转换
举例: