文档章节

Delphi 的字符及字符串[5] - 字符串与 Windows API

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 371
阅读 9
收藏 0
Windows API 中的字符串对应这 Delphi 的 PChar(PAnsiChar); 在 API 中使用 Delphi 的字符串还是比较灵活的.

先说赋值:
//赋值方法1: 给直接量
begin
  SetWindowText(Handle, '新标题');
end;

 
 
 
 
 

 

 

  
//赋值方法2: 定义它要的类型 var p: PChar; begin p := '新标题'; SetWindowText(Handle, p); end;
//赋值方法3: 转换成它要的类型 var str: string; begin str := '新标题'; SetWindowText(Handle, PChar(str)); end; //赋值方法4: 用字符数组 var arr: array[0..255] of Char; begin arr := '新标题'; SetWindowText(Handle, arr); end;
再说取值:
//取值方法1: 用字符数组(经常被称作"缓冲区")
var
  arr: array[0..254] of Char;
begin
  GetWindowText(Handle, arr, 255);
  ShowMessage(arr); {Form1}
end;

 
 
 
 
 

 

 

  
//取值方法2: 使用 GetMem 给 PChar 分配内存 var p: PChar; begin GetMem(p, 255); {分配内存} GetWindowText(Handle, p, 255); ShowMessage(p); {Form1} FreeMem(p); {释放内存} end;
//取值方法3: 用 GlobalAlloc 分配全局内存(比 GetMem 慢) var p: HGLOBAL; begin p := GlobalAlloc(0, 255); {参数一给 0 或 GMEM_FIXED 表示分配的是固定内存} GetWindowText(Handle, PChar(p), 255); ShowMessage(PChar(p)); {Form1} GlobalFree(p); {释放内存} end;
//取值方法4: 直接使用 string; 需要先 SetLength, 然后再去除空白: var str: string; begin SetLength(str, 255); {先设定 str 的长度} GetWindowText(Handle, PChar(str), 255); {但此时 str 的长度是 255 啊!} str := PChar(str); {这样可以得到实际长度的字符串} ShowMessage(str); {Form1} end;
定长字符串不是 #0 结束的, 和 API 不好兼容, 一般不用于 API 中.

本文转载自:http://www.cnblogs.com/del/archive/2008/03/04/1089437.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
用好Delphi中的字符串

用好Delphi中的字符串日期:2005年10月18日 作者: 人气:17184 查看:[大字体 中字体 小字体]一:各种字符串  字符串是Object Pascal所有数据类型中最有用的类型。许多函数以字符串为传递参...

vga
2016/08/09
14
0
Delphi、PChar和Char数组的比较

Delphi、PChar和Char数组的比较   string和Char数组都是一块内存, 其中存放连续的字符. string保存具体字符的内存对用户是透明的, 由Delphi管理它的分配, 复制和释放, 用户不能干预(其实也...

技术小甜
2017/11/08
0
0
delphi pchar char byte string转换问题

delphi pchar char byte string转换问题 注:Delphi中的Char,PChar,PByte,Byte,String的相互转换,您是不是也遇到过,为此头疼过吗?你要是明白了他们的原理就会轻松了。 话题064840的标题是...

鹅倌
2017/01/06
0
0
Delphi字符串、PChar与字符数组之间的转换

Delphi字符串、PChar与字符数组之间的转换 Delphi字符串、PChar与字符数组之间的转换 设有以下三个变量: var s:string; p:pchar; a:array[1..20] of char; 那么三者之间的转换如下: 1、字符...

vga
2015/03/06
0
0
Delphi中使用汇编(关于POS函数的问题)

在delphi中使用汇编异常的简单,只用使用关键字asm ....end来引导就行了。 得到一个字符在字符串中的位置有很多方法,最简单的就是使用delphi自己的Pos函数 另外一个方法就是使用 循环查找字...

技术小美
2017/11/06
0
0

没有更多内容

加载失败,请刷新页面

加载更多

MariaDB 服务器在 MySQL Workbench 备份数据的时候出错如何解决

服务器是运行在 MariaDB 10.2 上面的,在使用 MySQL Workbench 出现错误: mysqldump: Couldn't execute 'SELECT COLUMN_NAME, JSON_EXTRACT(HISTOGRAM, '$."number-of-buckets-specified"'......

honeymose
今天
3
0
apache顶级项目(二) - B~C

apache顶级项目(二) - B~C https://www.apache.org/ Bahir Apache Bahir provides extensions to multiple distributed analytic platforms, extending their reach with a diversity of s......

晨猫
今天
6
0
day152-2018-11-19-英语流利阅读

“超级食物”竟然是营销噱头? Daniel 2018-11-19 1.今日导读 近几年来,超级食物 superfoods 开始逐渐走红。不难发现,越来越多的轻食餐厅也在不断推出以超级食物为主打食材的健康料理,像是...

飞鱼说编程
今天
12
0
SpringBoot源码:启动过程分析(二)

接着上篇继续分析 SpringBoot 的启动过程。 SpringBoot的版本为:2.1.0 release,最新版本。 一.时序图 一样的,我们先把时序图贴上来,方便理解: 二.源码分析 回顾一下,前面我们分析到了下...

Jacktanger
昨天
4
0
Apache防盗链配置,Directory访问控制,FilesMatch进行访问控制

防盗链配置 通过限制referer来实现防盗链的功能 配置前,使用curl -e 指定referer [root@test-a test-webroot]# curl -e "http://www.test.com/1.html" -x127.0.0.1:80 "www.test.com/1.jpg......

野雪球
昨天
7
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部