文档章节

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

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

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/11/05/1327299.html

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

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

Foundation
2016/01/22
52
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
0
(三)Boost库之字符串处理

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

fanzhao
2014/03/22
3.3K
0
【算法】算法的艺术(四)

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

wbf961127
2017/11/14
0
0
php被遗忘的一些功能强大的字符串处理函数

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

微信迷
2014/02/27
0
0

没有更多内容

加载失败,请刷新页面

加载更多

最重要的是做什么,而不是怎么做。

最重要的是做什么,而不是怎么做。 做什么是战略,怎么做是战术。将军下令说,天黑前拿下这座山头,这是战略。手下的士兵可以不知道为什么要拿下这座山头,还非得是天黑之前,但士兵必须知道...

我是菜鸟我骄傲
今天
1
0
w, vmstat, top, sar, nload命令查看系统状态信息

w/uptime 查看系统负载 cat /proc/cpuinfo 查看cpu核数 vmstat 监控系统状态,用法 vmstat 1,关键的几列: r, b, swpd, si, so, bi, bo, us, wa top 查看进程使用资源情况 top -c 显示详细的...

野雪球
今天
2
0
小白创建一个spring boot项目

进入 https://start.spring.io/

lilugirl
今天
3
0
Alibaba Java诊断利器Arthas实践--使用redefine排查应用奇怪的日志来源

背景 随着应用越来越复杂,依赖越来越多,日志系统越来越混乱,有时会出现一些奇怪的日志,比如: [] [] [] No credential found 那么怎样排查这些奇怪的日志从哪里打印出来的呢?因为搞不清...

hengyunabc
今天
2
0
home hosts

home hosts lwk@qwfys:~$ cat /etc/hosts127.0.0.1 localhost127.0.1.1 qwfys192.168.56.101vm600.qwfys.com39.108.212.91alpha1.ppy.com39.108.117.122alpha2.p......

qwfys
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部