Delphi 2009 新增单元 Character[1]: ToUpper、ToLower - 字符与字符串的大小写转换
2021-03-09 01:26
标签：color RoCE character message roc span begin end cli Delphi 2009 新增单元 Character[1]: ToUpper、ToLower - 字符与字符串的大小写转换 标签：color RoCE character message roc span begin end cli 原文地址：https://www.cnblogs.com/redhat588/p/12770165.htmluses Character;
{Character.ToUpper}
procedure TForm1.Button1Click(Sender: TObject);
var
c: Char;
str: string;
begin
c := ToUpper(‘a‘);
str := ToUpper(‘Delphi‘);
ShowMessageFmt(‘%s, %s‘, [c, str]); {A, DELPHI}
end;
{Character.ToLower}
procedure TForm1.Button2Click(Sender: TObject);
var
c: Char;
str: string;
begin
c := ToLower(‘A‘);
str := ToLower(‘Delphi‘);
ShowMessageFmt(‘%s, %s‘, [c, str]); {a, delphi}
end;
文章标题：Delphi 2009 新增单元 Character[1]: ToUpper、ToLower - 字符与字符串的大小写转换
文章链接：http://soscw.com/index.php/essay/62058.html