Delphi XE 的一些新类

TCharacter类

完全由私人类静态函数组成。开发人员并不需要实例TCharacter,相反,最好只调用它的静态方法。


这个类包括:


字符转换为大写或小写,确定什么样的类型属,也就是说,这个数字是字母,标点符号,或别的东西。

TCharacter使用由Unicode协会规定的标准。


下面的代码:


uses

Character;


begin

if MyChar in [‘a’...’z’, ‘A’...’Z’] then

begin

...

end;

end;


可以很容易地被替换如下:


uses

Character;


begin

if TCharacter.IsLetter(MyChar) then

begin

  ...

end;

end;






TEncoding 类

它的目的 - 要求特定类型的编码。




例如,你有一个TStringList的实例,包含文字,你要写入一个文件。以前,你可以这样写:


...

MyStringList.SaveToFile('SomeFilename.txt');

...


现在有一个可选的第二个参数指定编码你想要的:


...

MyStringList.SaveToFile(‘SomeFilename.txt’, TEncoding.Unicode);  

...


运行此代码,该文件将被写在Unicode(UTF - 16中)。


TEncoding还包括一个功能


class function TEncoding.GetEncoding(CodePage: Integer): TEncoding;


返回一个TEncoding,代码页发送到参数的实例。


此外,它具有以下功能:


function GetPreamble: TBytes;


它返回一个给定的编码的BOM。


var

 BOM: TBytes;

begin

 ...

 BOM := TEncoding.UTF8.GetPreamble;

 Write(BOM[0], Length(BOM));




TStringBuilder 类


这个类可以很简单地创建许多不同类型的字符串。


例如,你可以写下面的代码:


procedure TForm86.Button2Click(Sender: TObject);

var

MyStringBuilder: TStringBuilder;

Price: double;

begin

MyStringBuilder := TStringBuilder.Create('');

try

  Price := 1.49;

  Label1.Caption := MyStringBuilder.Append('The apples are $').Append(Price).

           Append(' a pound.').ToString;

finally

  MyStringBuilder.Free;

end;

end;

---------------------

作者:jn_child

原文:https://blog.csdn.net/jn_child/article/details/6208705



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678