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;
网友评论