2018-11-27 字母的大小写转换

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;