Delphi 2009 新增单元 Character[1]: ToUpper、ToLower - 字符与字符串的大小写转换


本文整理自网络,侵删。

 代码文件:
--------------------------------------------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses 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;

{相应的 API 函数: Windows.CharUpper、Windows.CharLower}
procedure TForm1.Button3Click(Sender: TObject);
var
c1,c2: Char;
begin
c1 := Char(CharUpper(PChar('a')));
c2 := Char(CharLower(PChar('B')));
ShowMessageFmt('%s, %s', [c1, c2]); {A, b}
end;

{以前 SysUtils 下有: UpperCase、LowerCase}
procedure TForm1.Button4Click(Sender: TObject);
var
s1,s2: string;
begin
s1 := UpperCase('Delphi');
s2 := LowerCase('Delphi');
ShowMessageFmt('%s, %s', [s1, s2]); {DELPHI, delphi}
end;

end.

相关阅读 >>

Delphi base64加解密

Delphi检查getelementbyid返回值的有效性

Delphi android拍照报错

Delphi 获取两字符串之间的内容

Delphi 递归算法遍历文件

Delphi从全路径中分离路径,有'\'

Delphi applicationevents1 webbrowser1屏蔽右键菜单

Delphi tstrings 过滤空行

Delphi 如何将bitmap位图与base64字符串相互转换

settimer函数用法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...