文档章节

Delphi 2009 新增单元 Character[2]: IsLetter、IsUpper、IsLower、IsDigit、IsNumber

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 505
阅读 11
收藏 0
点赞 0
评论 0
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.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/08/28/1278232.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
Unity char字符类型的判断

在Unity里(C#),判断一个未知字符的类型要用到内置结构体:char 这是一些主要静态函数(后面举的例子都是亲自测试的,汉字属于字母,但是既不是大写字母,也不是小写字母): char.IsControl...

qq_24378389
2017/06/10
0
0
C标准库参考指南系列译文(2)ctype.h

英文原文:http://www.acm.uiuc.edu/webmonkeys/book/c_guide/2.2.html 原文作者:Eric Huss 中文译者:柳惊鸿 Poechant 版权声明:本文的原文版权归Eric Huss所有,中文译文版权归Poechant所...

晨曦之光
2012/04/24
51
0
ctype.h中的函数及其用法

ctype.h里的函数 1 字符测试函数 1> 函数原型均为int isxxxx(int) 2> 参数为int, 任何实参均被提升成整型 3> 只能正确处理处于[0, 127]之间的值 2 字符映射函数 1> 函数原型为int toxxxx(in...

员凯
2012/03/26
0
0
python中,为什么str没有实现__cmp__方法,但是却可以用cmp函数进行比较?

>>> dir(str) ['__add__', '__class__', '__contains__', '__delattr__', '__doc__', '__eq__', '__format__', '__ge__', '__getattribute__', '__getitem__', '__getnewargs__', '__getslic......

huey2672
2015/03/26
732
3
cctype头文件 cstring头文件

#include <cctype> 对string对象中单个字符进行处理 cctype下标准库函数: isalnum(c);isalpha(c);isdigit(c);isxdigit(c);islower(c);isupper(c);isspace(c); isgraph(c);iscntrl(c);ispun......

钓灵感
2012/11/06
0
0
字符串的内置方法(常用) 和 解码与编码

>>>dir(str) ['__add__','__class__', '__contains__', '__delattr__', '__doc__', '__eq__', format','ge', 'getattribute', 'getitem', 'getnewargs', ' slice','gt', 'hash', 'init', 'le......

huwei0512
2017/05/12
0
0
字符串的变形、判断

字符串的变形 1、upper 将字符串中所有的字母转换为大写 2、lower 将字符串中所有的字母转换为小写 3、swapcase 将字符串中所有的字母大小写互换 4、title 将字符串中所有单词的首字母大写,...

Sweltering
01/25
0
0
Java:Character

使用字符时,我们通常使用的是内置数据类型char。 实例 char ch = 'a';// Unicode for uppercase Greek omega characterchar uniChar = 'u039A'; // 字符数组char[] charArray ={ 'a', 'b',......

易水寒丶开源
2015/09/29
53
0
python之常用字符串函数

#author:zhouyu name = 'my name is zhouyu' print(name.capitalize()) print(name.count('m')) print(name.center(50,'-')) print(name.endswith('zhouyu')) #上面这个方法可以用来判断用户......

周子琪
2017/09/10
0
0
Python数据类型方法简介一————字符串

符串是Python中的重要的数据类型之一,并且字符串是不可修改的。字符串的所有修改方法都是修改的副本。 字符串就是引号(单、双和三引号)之间的字符集合。(字符串必须在引号之内,引号必须成对...

aAnthony
2017/06/20
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Linux服务器下的HTTP抓包分析

说到抓包分析,最简单的办法莫过于在客户端直接安装一个Wireshark或者Fiddler了,但是有时候由于客户端开发人员(可能是第三方)知识欠缺或者其它一些原因,无法顺利的在客户端进行抓包分析,...

mylxsw
9分钟前
0
0
mybatis3-javaapi

sqlSessionFactoryBuilder->sqlSessionFactory->sqlSession<-rowbound<-resultHandler myBatis uses a Java enumeration wrapper for transaction isolation levels, called TransactionIsol......

writeademo
12分钟前
0
0
Java NIO:浅析I/O模型

也许很多朋友在学习NIO的时候都会感觉有点吃力,对里面的很多概念都感觉不是那么明朗。在进入Java NIO编程之前,我们今天先来讨论一些比较基础的知识:I/O模型。下面本文先从同步和异步的概念...

yzbty23
12分钟前
0
0
了解iOS消息推送一文就够:史上最全iOS Push技术详解

本文作者:陈裕发, 腾讯系统测试工程师,由腾讯WeTest整理发表。 1、引言 开发iOS系统中的Push推送,通常有以下3种情况: 1)在线Push:比如QQ、微信等IM界面处于前台时,聊天消息和指令都会...

JackJiang-
14分钟前
0
0
Mysql汉子转拼音

update t_app_city SET CITY_NAME_BEGIN = ELT(INTERVAL(CONV(HEX(LEFT(CONVERT(CITY_NAME USING gbk),1)),16,10), 0xB0A1,0xB0C5,0xB2C1,0xB4EE,0xB6EA,0xB7A2,0xB8C1,0xB9FE,0xBBF7, 0xBFA......

尘叙缘
16分钟前
0
0
大数据构建智慧城市“新引擎”,加速推进新旧动能转换

——“大数据与智慧城市”技术交流分享会——济南站召开 7月13日,“大数据携手智慧城市,助力山东新旧动能转换”技术交流分享会——济南站在山东信息通信技术研究院会议室成功举办,此次会议...

左手的倒影
18分钟前
2
0
tomcat 学习笔记之 Session管理

1、Catalina 通过一个 Session 管理器的组件来管理建立的Session 对象 该组件由 org.apache.catalina.Manager 接口表示 Session 管理器必须与一个 Context 关联 Session 管理器负责,创建、更...

职业搬砖20年
18分钟前
0
0
jquery获取input框的几种方式

//如何用jquery获取<input id="test" name="test" type="text"/>中输入的值?$(" #test ").val()$(" input[ name='test' ] ").val()$(" input[ type='text' ] ").val()$(" input[ ......

gulf
21分钟前
0
0
gradle的环境变量的配置

gradle的环境变量的配置 1.首先下载jdk,并且配置jdk的环境变量. 2.找到自己AS安装gradle的目录 我自己的目录为:F:\Android Studio3.1.3\gradle\gradle-4.4 创建环境变量:GRADLE_PATH: F:\A...

android-key
27分钟前
0
0
saltstack配置apache

1.相关配置 #vim /etc/salt/master //打开如下内容的注释 file_roots: base: - /srv/salt #mkdir /srv/salt #vim /srv/salt/top.sls base: 'slaver.test.com': - apache 注意:若换成 '*',则......

硅谷课堂
28分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部