文档章节

WinAPI 字符及字符串函数(1): CharLower - 字符或字符串转小写

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 192
阅读 8
收藏 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;
begin
  C := 'A';
  C := Char(CharLower(PChar(C)));
  ShowMessage(C); {a}
end;

{对字符常量}
procedure TForm1.Button2Click(Sender: TObject);
var
  C: Char;
begin
  C := Char(CharLower(PChar('A')));
  ShowMessage(C); {a}
end;

{对字符数组}
procedure TForm1.Button3Click(Sender: TObject);
var
  Arr: array[0..2+1] of Char;
begin
  Arr := 'ABC';
  CharLower(Arr);
  ShowMessage(Arr); {abc}
end;

{对字符串}
procedure TForm1.Button4Click(Sender: TObject);
var
  str: string;
begin
  str := 'ABC';
  CharLower(@str[1]);
  ShowMessage(str); {abc}
end;

{Delphi 的 SysUtils.LowerCase}
procedure TForm1.Button5Click(Sender: TObject);
var
  str: string;
begin
  str := 'ABC';
  str := LowerCase(str);
  ShowMessage(str); {abc}
end;

end.

 
 
 
 
 

 

 

  

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
python 字符串

字符串 简介 字符串序列 用于表示和存储文本,python中字符串是不可变的,一旦声明,不能改变 通常由单引号(' ),双引号(" ),三引号(''' """)包围 其中三引号可以由多行组成,编写多行文本的...

jacked
2016/03/12
49
0
python 中 u 和 r 加字符

字符串 简介 字符串序列用于表示和存储文本,python中字符串是不可变的,一旦声明,不能改变 通常由单引号(' ),双引号(" ),三引号(''' """)包围 其中三引号可以由多行组成,编写多行文本的...

周东尧
2016/08/21
102
0
Python常用内置函数(二)

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

技术小阿哥
2017/11/27
0
0
Oracle基本使用——第五章 Oracle函数

Oracle基本使用——第五章 Oracle函数 第五章 Oracle函数 5.1 数学函数 --数值数据(绝对值,三角函数,对数函数,随机函数) 绝对值函数 ABS(x) 平方根函数 SQRT(x) 求余函数 MOD(x,y) 获取整...

代金券优惠
04/27
0
0
字符串的常用操作(字符串的操作用得比较多,须掌握扎实)

字符串的常用操作(字符串的操作用得比较多,须掌握扎实) Length:属性,返回字符串中的字符个数。

瑞不可挡
2011/01/08
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Ubuntu18.04 显卡GF-940MX安装NVIDIA-390.77

解决办法: 下面就给大家一个正确的姿势在Ubuntu上安装Nvidia驱动: (a)首先去N卡官网下载自己显卡对应的驱动:www.geforce.cn/drivers (b)下载后好放在英文路径的目录下,怎么简单怎么来...

AI_SKI
今天
3
0
深夜胡思乱想

魔兽世界 最近魔兽世界出了新版本, 周末两天升到了满级,比之前的版本体验好很多,做任务不用抢怪了,不用组队打怪也是共享拾取的。技能简化了很多,哪个亮按哪个。 运维 服务器 产品 之间的...

Firxiao
今天
1
0
MySQL 8 在 Windows 下安装及使用

MySQL 8 带来了全新的体验,比如支持 NoSQL、JSON 等,拥有比 MySQL 5.7 两倍以上的性能提升。本文讲解如何在 Windows 下安装 MySQL 8,以及基本的 MySQL 用法。 下载 下载地址 https://dev....

waylau
今天
0
0
微信第三方平台 access_token is invalid or not latest

微信第三方开发平台code换session_key说的特别容易,但是我一使用就带来无穷无尽的烦恼,搞了一整天也无济于事. 现在记录一下解决问题的过程,方便后来人参考. 我遇到的这个问题搜索了整个网络也...

自由的开源
今天
3
0
openJDK之sun.misc.Unsafe类CAS底层实现

注:这篇文章参考了https://www.cnblogs.com/snowater/p/8303698.html 1.sun.misc.Unsafe中CAS方法 在sun.misc.Unsafe中CAS方法如下: compareAndSwapObject(java.lang.Object arg0, long a......

汉斯-冯-拉特
今天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部