本站xe10.2.3亲测。

描述

下面的示例演示在Character单元中使用一些高级方法。编辑框被设置为只允许2个unicode字符。

代码

unit Unit1; interface uses    System.Character, TypInfo,    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type    TForm1 = class(TForm)     edtChar: TEdit;     procedure edtCharChange(Sender: TObject);     procedure FormCreate(Sender: TObject);    private     { Private declarations }    public     { Public declarations }    end; var    Form1: TForm1; implementation {$R *.dfm} procedure TForm1.edtCharChange(Sender: TObject); var    U4: UCS4Char;    Cat: TUnicodeCategory;    Value: String; begin    Value := edtChar.Text;    { 为空时退出 }    if Value = '' then     Exit;    { 注意，两个字符可能代表一个!! }    { 只允许控制代码和字母数字值 }    if (not IsLetterOrDigit(Value[1])) and      (not Value[1].IsControl and      (not IsSurrogate(Value[1])))      then Exit;    { 将输入的char转换为UCS4 }    U4 := ConvertToUtf32(Value, 1);    { 然后再转换回来 }    if (ConvertFromUtf32(U4) <> Value) then     MessageDlg('不允许!', mtError, [mbOK], 0);    MessageDlg('字符的数值为 ' +     FloatToStr(GetNumericValue(Value[1])), mtInformation, [mbOK], 0);    { 获取字符的unicode类别 }    Cat := GetUnicodeCategory(Value[1]);    MessageDlg(Format('字符"%s"类别是: %s ',     [Value[1], GetEnumName(TypeInfo(TUnicodeCategory), Ord(Cat))]),     mtInformation, [mbOK], 0); end; procedure TForm1.FormCreate(Sender: TObject); begin  { 允许输入两个字符的编辑框。对于Unicode，    2个字符代表一个字符。    }    edtChar.MaxLength := 2; end; end.