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获取闲置时间

Delphi xmldocument控件之xml

Delphi 对汉字字符串的截取问题

Delphi想tstringgrid中添加和删除行的方法

Delphi文本转换图片

Delphi xe7中的运行时设置android应用程序屏幕方向

Delphi自动提交网页表单和获取框架网页源码

Delphi 批量操作按钮组件属性

dephi获取系统常量

Delphi 蓝牙连接打印机演示

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



打赏

取消

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

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

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

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

评论

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