文档章节

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
Python 字符串内置方法

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

lalamina
2016/08/21
37
0
Win32多语言IME应用程序编程接口(API)

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

yousss
04/25
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Java 源代码和 C 源代码的运行区别

与其他程序的执行方式和编译方式不同。 Java 源代码需要进行编译成字节码后在 Java 虚拟机上运行,这样 Java 程序能够保持独立性和跨平台功特性。 请参考下图。 https://www.cwiki.us/pages...

honeymose
今天
4
0
Apache限定目录解析PHP,限制user_agent,PHP相关的配置

Apache限定目录解析PHP 配置前访问upload/index.php [root@test-a ~]# curl -x192.168.77.139:80 'www.test.com/upload/index.php'This is upload diretory 配置,/usr/local/apache2.4/......

野雪球
今天
5
0
java.util.Concurrent.Exchanger源码

类图 源码: package java.util.concurrent;import java.util.concurrent.atomic.AtomicInteger;import java.util.concurrent.atomic.AtomicReference;import java.util.concurrent......

狼王黄师傅
今天
6
0
Kubernetes里的secret最基本的用法

Secret解决了密码、token、密钥等敏感数据的配置问题,使用Secret可以避免把这些敏感数据以明文的形式暴露到镜像或者Pod Spec中。 Secret可以以Volume或者环境变量的方式使用。 使用如下命令...

JerryWang_SAP
昨天
5
0
2018-11-20学习笔记

1. python数据类型: 给变量赋值什么样的值,变量就是什么样的类型 给变量赋值整数,变量就是整数类型 给变量赋值字符串,变量就是字符串类型 123 和“123”一样吗? 在python中 单引号 与双...

laoba
昨天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部