文档章节

WinAPI 字符及字符串函数(8): IsCharUpper - 是否是个大写字母

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 192
阅读 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 := IsCharUpper(c);
  ShowMessage(BoolToStr(b, True)); {True}
end;

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

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

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

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

end.

 
 
 
 
 

 

 

  

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
python字符串处理方法(二)

startswith() 检查第一个字符是否是指定字符 startswith() 方法用于检查字符串是否是以指定子字符串开头,如果是则返回 True,否则返回 False。如果参数 beg 和 end 指定值,则在指定范围内检...

colinux
2018/08/17
0
0
函数体中的变量离开函数后是不是被回收了

调用函数upper 后,其返回值指针能有效嘛?在我印象中,函数中的局部变量,离开函数体后,不是被回收了嘛? 这样的话char *dest = upper(str); 调用后,其dest能是有效数据嘛?(麻烦有c环境...

天王盖地虎626
2018/07/04
171
6
Python 字符串内置方法

Python 字符串内置方法 作者博客:http://zzir.cn/ string.capitalize() 返回字符串的第一个大写字母。 string.centr(width) 返回一个共 width 列、填充空格的字符串,原始字符串处于其中心位...

lalamina
2016/08/21
37
0
【算法】算法的艺术(五)

利用位运算求整数的原码或补码 利用位运算求任意整数的原码或补码。   实例解析:   整数在内存中本来就是用补码存放的,若要求出补码,只需求出内存中的每一位二进制数即可。而原码,若...

wbf961127
2017/11/06
0
0
php基础_字符函数or运算符号

1.PHP字符串函数 1.strlen()函数 返回字符串长度,以字符计数 举个栗子: links 192.168.3.181 我的第一张 PHP 页面12 2.strpos()函数 strpos()函数用于检索字符串内制定字符或文本,如果找到...

Aic_liao
2018/07/04
0
0

没有更多内容

加载失败,请刷新页面

加载更多

深入理解JVM—JVM内存模型

深入理解JVM—JVM内存模型 我们知道,计算机CPU和内存的交互是最频繁的,内存是我们的高速缓存区,用户磁盘和CPU的交互,而CPU运转速度越来越快,磁盘远远跟不上CPU的读写速度,才设计了内存...

onedotdot
30分钟前
1
0
MVC、MVCS、MVVM、MVP、VIPER等这么多架构模式哪一个好呢?

在项目开启阶段,其中一个很重要的环节就是选架构。 那么面对目前已知的这么多架构模式我们该怎么选择呢?这确实是个很让人头疼的问题! 下面我就在这里梳理一下目前常见的一些架构模式。 先...

Java干货分享
今天
4
0
简单模仿配置文件的反射机制

//Student类 public class Student { public void love() { System.out.println("python"); } } //Tesy类 public class Tesy { public static void main(String[] args) throws Exceptio......

南桥北木
今天
2
0
你真的需要了解一下CSS变量 var()的用法

当Web项目变得越来越大时,他的CSS会变得像天文数字那么大而且还变得混乱。为了帮助我们解决这个问题,新的CSS变量很快就会出现在主流浏览器中,它让开发人员能够重用并轻松编辑重复出现的C...

前端小攻略
今天
1
0
嵌入式应用选择合适的微控制器

为嵌入式应用选择微控制器有几个原因,即低成本,高集成度,增加可靠性,节省空间等。 准备所需硬件接口列表使用微控制器的基本硬件框图,准备一份微控制器需要支持的所有外设接口的列表。微...

linux-tao
今天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部