文档章节

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
08/17
0
0
【算法】算法的艺术(五)

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

wbf961127
2017/11/06
0
0
函数体中的变量离开函数后是不是被回收了

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

天王盖地虎626
07/04
0
0
字符串操作二

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

余二五
2017/11/23
0
0
Win32多语言IME应用程序编程接口(API)

十三、IMM函数 1、IMM用户界面函数 以下是用户界面窗口可以使用的输入法管理器函数。应用程序也可以使用它们改变输入法的状态。 ImmGetCompositionWindow ImmSetCompositionWindow ImmGetCa...

yousss
04/25
0
0

没有更多内容

加载失败,请刷新页面

加载更多

sourcetree 离线免注册登录安装教程

Sourcetree是一个优秀的git可视化管理工具,深受开发者喜爱Sourcetree官网,但是在安装时需要谷歌账户登录,需要翻qiang才可以,此一点一直被人们所诟病。今天本教程就为大家提供离线免登陆安...

QQZZFT
13分钟前
0
0
使用 PostgreSQL 解决一个实际的统计分析问题

使用 PostgreSQL 解决一个实际的统计分析问题作者:老农民(刘启华)Email: 46715422@qq.com 之前有个朋友扔给我一个奇葩需求,他们公司之前做了一批问卷调查,全部都是统一格式的excel...

新疆老农民
16分钟前
0
0
TypeScript基础入门之高级类型的映射类型

转发 TypeScript基础入门之高级类型的映射类型 高级类型 映射类型 一个常见的任务是将一个已知的类型每个属性都变为可选的: interface PersonPartial {    name?: string;    age?...

durban
31分钟前
0
0
Dubbo源码分析(6):Dubbo内核实现之基于SPI思想Dubbo内核实现

SPI接口定义 定义了@SPI注解 package com.alibaba.dubbo.common.extension; import java.lang.annotation.Documented;import java.lang.annotation.ElementType;import java.lang.an......

郑加威
32分钟前
0
0
RxJS的另外四种实现方式(后记)—— 同时实现管道和链式编程

目录 RxJS的另外四种实现方式(序) RxJS的另外四种实现方式(一)——代码最小的库 RxJS的另外四种实现方式(二)——代码最小的库(续) RxJS的另外四种实现方式(三)——性能最高的库 Rx...

一个灰
35分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部