2018-11-27 字母的大小写转换
2018-11-27 本文已影响0人
netppp
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(lowercase('A')); //显示为a
showmessage(Uppercase('a')); //显示为A
end;
在DELPHIXE中，还可以这么干，在顶部 uses 区域加入 Character 单元
procedure TForm3.Button1Click(Sender: TObject);
begin
showmessage(toupper('a')); //显示为A
showmessage(tolower('A')); //显示为a
end;
