文档章节

WinAPI 字符及字符串函数(5): IsCharAlpha - 是否是个字母

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 190
阅读 6
收藏 0
点赞 0
评论 0
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}

procedure TForm1.Button1Click(Sender: TObject);
var
  c: Char;
  b: BOOL;
begin
  c := #65; {A}
  b := IsCharAlpha(c);
  ShowMessage(BoolToStr(b, True)); {True}
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  c: Char;
  b: BOOL;
begin
  c := #97; {a}
  b := IsCharAlpha(c);
  ShowMessage(BoolToStr(b, True)); {True}
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  c: Char;
  b: BOOL;
begin
  c := #48; {0}
  b := IsCharAlpha(c);
  ShowMessage(BoolToStr(b, True)); {False}
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  c: Char;
  b: BOOL;
begin
  c := #13; {回车键}
  b := IsCharAlpha(c);
  ShowMessage(BoolToStr(b, True)); {False}
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  c: WideChar;
  b: BOOL;
begin
  c := #19975; {万}
  b := IsCharAlpha(c);
  ShowMessage(BoolToStr(b, True)); {False}
end;

end.

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
Python 字符串操作方法大全

本文主要介绍了python下如何操作字符串,以及常用字符串用法。 1、去空格及特殊符号 代码如下: 1 2、复制字符串 代码如下: 1 2 3 4 5 3、连接字符串 代码如下: 1 2 3 4 5 4、查找字符 代码如下...

Foundation ⋅ 2016/01/22 ⋅ 0

(三)Boost库之字符串处理

字符串处理一直是c/c++的弱项,stringalgo库很好的弥补了这一点。 stringalgo 库算法命名规则: 前缀i : 有这个前缀表名算法的大小写不敏感,否则大小写敏感 后缀copy: 有这个后缀表明算法不...

fanzhao ⋅ 2014/03/22 ⋅ 0

php被遗忘的一些功能强大的字符串处理函数

列举几个php语言中被遗忘的一些但功能非常强大的字符串处理函数,这里就不对其用法一个个举例了,感兴趣的朋友可以自己测试。 (PHP 4 >= 4.0.4, PHP 5) 函数原型 bool ctype_alnum ( string ...

微信迷 ⋅ 2014/02/27 ⋅ 0

【算法】算法的艺术(四)

数组作计数器   一篇文章共有10行,每行最多80字符,编程统计文章中26个英文字母分别出现的次数(不区分大小写)。   实例解析:   文章的内容可以通过键盘输入到一个二维数组中:   ...

wbf961127 ⋅ 2017/11/14 ⋅ 0

C语言/C++学习表白小程序,源代码分享

#include #include #include //#define SUSHU 101 // oid ab(int b, int c){ //int p = *b; //b = c;//c =11 b =10 b =11 p= 10 //*c = p; //} #include char LEETER[4][5][5] = { { 0, 1, 0......

小辰GG ⋅ 2017/12/17 ⋅ 0

有关字符串的整理

1、去空格及特殊符号 代码如下: 2、复制字符串 3、连接字符串 代码如下: In [13]: a = "123"In [14]: b = "456"In [15]: c = a + bIn [16]: print c123456 4、查找字符 5、比较字符串 代码如...

朱小朱zero ⋅ 2017/09/08 ⋅ 0

字符串操作二

s.find()函数 可在指定字符串范围内查找子字符串出现的位置 S.find(substr, [start, [end]]) #返回S中出现substr的第一个字母的标号,如果S中没有substr则返回-1。 start和end作用就相当于在...

余二五 ⋅ 2017/11/23 ⋅ 0

字符串的变形、判断

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

Sweltering ⋅ 01/25 ⋅ 0

Python常用内置函数(二)

字符串处理方法 1. str.capitalize: 将字符串首字母大写 str.capitalize('abc') 'Abc' 2. str.replace(old,new,[,count]): 替换字符,count定义替换的次数,默认是全替换 str1 = 'hello,worl...

技术小阿哥 ⋅ 2017/11/27 ⋅ 0

[LeetCode] Reverse Vowels of a String 翻转字符串中的元音字母

Write a function that takes a string as input and reverse only the vowels of a string. Example 1: Given s = "hello", return "holle". Example 2: Given s = "leetcode", return "leo......

机器的心脏 ⋅ 2017/12/14 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

IDEA创建SpringMVC+Mybatis+Maven项目

视频如下(加载有点慢请见谅,服务器不太好): 视频

影狼 ⋅ 1分钟前 ⋅ 0

前阿里P8架构师:精准定制Java架构师学习计划!

可以说,Java是现阶段中国互联网公司中,覆盖度最广的研发语言,掌握了Java技术体系,不管在成熟的大公司,快速发展的公司,还是创业阶段的公司,都能有立足之地。 有不少朋友问,除了掌握J...

java高级架构牛人 ⋅ 4分钟前 ⋅ 0

zookeper学习

https://blog.csdn.net/u012152619/article/category/6470028

~少司命~ ⋅ 5分钟前 ⋅ 0

Spring MVC ,JSON,JQuery,不懂JQuery,跳过了

/spring-mvc-study/src/main/webapp/course_json.jsp <%@ page language="java" contentType="text/html; charset=UTF-8"pageEncoding="UTF-8"%><!DOCTYPE html PUBLIC "-//W3C//DTD ......

颖伙虫 ⋅ 6分钟前 ⋅ 0

2018上海云栖大会workshop-日志数据采集与分析对接

摘要: 日志数据采集与分析对接 课程描述 通过日志服务采集用户、数据库、业务等访问数据。演示对于业务日志分析与处理,程序日志查询与监控,打通日志与数据仓库对接案例。 日志种类 网站访...

阿里云云栖社区 ⋅ 7分钟前 ⋅ 0

mahout demo

package com.datamine.CollaborativeFiltering.mysql; import org.apache.mahout.cf.taste.impl.neighborhood.NearestNUserNeighborhood; import org.apache.mahout.cf.taste.impl.recommend......

xiaomin0322 ⋅ 8分钟前 ⋅ 0

red hat openstack 12配置要求

安装 openstack 之前,一般要规划整个系统中,到底要多少台机器来参与openstack, 根据rhosp12的官方文档: 最低要求是3台物理机,1台作为director,一台作为 controller ,一台作为computer....

tututu_jiang ⋅ 9分钟前 ⋅ 0

Rocket-Chip在GitHub上的各个源码

在github上通过搜索Rocket-chip可以得到36个结果:其中 https://github.com/freechipsproject/rocket-chip https://github.com/ucb-bar/riscv-boom https://github.com/ucb-bar/fpga-zynq (......

whoisliang ⋅ 15分钟前 ⋅ 0

【HAVENT原创】CentOS 6.5 下 Nginx 的安装与配置

nginx是轻量级的Web服务器、反向代理服务器及邮件服务器,具有占用内存少,并发能力强的优点,已被广泛应用。本文介绍目前最新版本 1.12.2 的安装。 各版本nginx下载地址:http://nginx.org/...

HAVENT ⋅ 21分钟前 ⋅ 0

查看linux系统重启之前的log -- last_kmsg

当 Linux Kernel 出现 BUG 的时候,后走入 panic flow,这个时候由于 Kernel 出现了严重的问题,adbd 也无法响应 adb 连接请求,这个时候想透过读取 Kernel Log Buffer 来看 Kernel Log 是不...

zyzzu ⋅ 22分钟前 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部