zoukankan      html  css  js  c++  java
  • Delphi 2009 新增单元 Character[2]: IsLetter、IsUpper、IsLower、IsDigit、IsNumber

    IsLetter: {是否是个字母; 范围 A..Z 与 a..z}
    IsUpper:  {是否是个大写字母; 范围 A..Z}
    IsLower:  {是否是个小写字母; 范围 a..z}
    IsDigit:  {是否是个十进制数字; 范围 0..9}
    IsNumber: {是否是个数字符号; 范围包括 0..9, 还有 ASCII 码中的 178、179、185、188、189、190 等}
    
    测试代码:
    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;
        Button5: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses Character;
    
    {IsLetter: 是否是个字母}
    procedure TForm1.Button1Click(Sender: TObject);
    var
      b1,b2,b3: Boolean;
    begin
      b1 := IsLetter('A'); {是}
      b2 := IsLetter('a'); {是}
      b3 := IsLetter('9'); {否}
      ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);
      {True,True,False}
    
      b1 := IsLetter('D2009', 1);
      b2 := IsLetter('D2009', 2);
      ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);
      {True,False}
    end;
    
    {IsUpper: 是否是个大写字母}
    procedure TForm1.Button2Click(Sender: TObject);
    var
      b1,b2,b3: Boolean;
    begin
      b1 := IsUpper('A'); {是}
      b2 := IsUpper('a'); {否}
      b3 := IsUpper('9'); {否}
      ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);
      {True,False,False}
    
      b1 := IsUpper('Delphi', 1);
      b2 := IsUpper('Delphi', 2);
      ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);
      {True,False}
    end;
    
    {IsLower: 是否是个小写字母}
    procedure TForm1.Button3Click(Sender: TObject);
    var
      b1,b2,b3: Boolean;
    begin
      b1 := IsLower('A'); {否}
      b2 := IsLower('a'); {是}
      b3 := IsLower('9'); {否}
      ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);
      {False,True,False}
    
      b1 := IsLower('Delphi', 1);
      b2 := IsLower('Delphi', 2);
      ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);
      {False,True}
    end;
    
    {IsDigit: 是否是个十进制数字}
    procedure TForm1.Button4Click(Sender: TObject);
    var
      b1,b2,b3: Boolean;
    begin
      b1 := IsDigit('A'); {否}
      b2 := IsDigit('½'); {否}
      b3 := IsDigit('9'); {是}
      ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);
      {False,False,True}
    
      b1 := IsDigit('D2009', 1);
      b2 := IsDigit('D2009', 2);
      ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);
      {False,True}
    end;
    
    {IsNumber: 是否是个数字符号}
    procedure TForm1.Button5Click(Sender: TObject);
    var
      b1,b2,b3: Boolean;
    begin
      b1 := IsNumber('A'); {是}
      b2 := IsNumber('½'); {是}
      b3 := IsNumber('9'); {否}
      ShowMessageFmt('%s,%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True),BoolToStr(b3,True)]);
      {False,True,True}
    
      b1 := IsNumber('123¹²³¼½¾', 1);
      b2 := IsNumber('123¹²³¼½¾', 4); {这里的 9 个字符全都复合}
      ShowMessageFmt('%s,%s', [BoolToStr(b1,True),BoolToStr(b2,True)]);
      {True,True}
    end;
    
    end.
    
  • 相关阅读:
    maven settings.xml 文件
    Ajax配合后端实现Excel的导出
    线性表的链式存储--单链表
    微软最新开源工具PowerToys,让你的win10更加好用!!
    二叉树合集(三):线索二叉树(图文详解)
    二叉树合集(二):霍夫曼树(图文详解)
    二叉树合集(一):二叉树基础(含四种遍历,图文详解)
    二叉树合集(六):高度平衡的二叉搜索树简介(图文解析)
    二叉树合集(五):二叉搜索树(图片详解,含基本操作)
    【LeetCode】108.将有序数组转换为平衡二叉树(中序遍历三种方法,java实现)
  • 原文地址:https://www.cnblogs.com/del/p/1278232.html
Copyright © 2011-2022 走看看