Delphi字符串与字符数组之间的转换(初始化的重要性)
紧接着上篇博客讲解的内容:
将Char型数组转换为string类型还有下面的这种方法
但是我在测试的时候遇到了一些问题,并在下面进行了解释和总结
先说出我的总结
其实我们在学习编程的时候(比如我之前学习C的时候),一直有书或者博客上有建议说声明一个变量之后,一定要初始化,否则可能出现一些意想不到的错误。虽然这里的buf 也进行了初始化,但是初始化不完全(并没有考虑到字符串应该以#0 作为结尾),所以就出现了这样的问题。
另外,在编程的时候,难免因为很多问题没有考虑到而出现这样那样的问题,这个时候不要瞎猜,可以为自己的程序设置几个断点来调试一下、去看看运行时候的变量的值……
Delphi的调试就类似与上面所讲的,更详细的可以看http://www.cnblogs.com/xumenger/p/4443975.html
C/C++里面也有,我比较喜欢Linux环境下的GDB调试器,GDB教程参考:http://www.cnblogs.com/xumenger/p/4214068.html
再开始讲解整个过程
Char数组与String存储方式一样(还是有不一样的,具体的String的存储结构见:http://www.cnblogs.com/xumenger/p/4427957.html),只不过string是以 '/0' 结尾的char数组(这样理解是可以的,但是不是很精确)。所以可以把Char数组强制转换为string类型。
程序一
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..255] of Char;
s :string;
i: Integer;
begin
for i:=0 to 10 do
buf[i]:= 'f'; s:= string(buf); ShowMessage(s);
end;
编译之后,点击按钮会看到这样的效果
程序二
但是,如果 buf 数组中间有某一位是 '/0'(在Delphi里面是 #0),转换时以第一个出现的'/0'前面的内容转换为s的内容,如果第一个字符即为'/0'(即#0),buf[0]=char(0),则s的内容为空字符串。下面有一个例子
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..255] of Char;
s :string;
i: Integer;
begin
for i:=0 to 10 do
buf[i]:= 'f'; buf[11]:= #0; for i:=12 to 15 do
buf[i]:= 'c'; s:= string(buf); ShowMessage(s);
end;
编译之后,点击按钮会看到这样的效果。字符串s 只会有字符数组的 #0 之前的内容,#0 之后的就不会有,因为string是以#0 结尾的
程序三
但是还要注意一个问题,我在编写这样的代码的时候
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..255] of Char;
s :string;
i: Integer;
begin
for i:=0 to 10 do
buf[i]:= 'f'; buf[11]:= 'p'; for i:=12 to 15 do
buf[i]:= 'c'; s:= string(buf); ShowMessage(s);
end;
出现下面的问题
为什么我将buf 的从 0到 10赋值为'f',11赋值为'p', 12到15赋值为'c',这些显示都没有问题,但是为什么后面多了那几个乱七八糟的字符
所以设置断点,进行单步调试查看到底是为什么
如图,在 s:= string(buf); 这行设置断点(F5)
再按F9运行,在这行停住,再看buf的内容(Ctrl+鼠标左键),如下图
可以看到buf的元素从0 到15都确实是自己在程序中赋值的内容,但是为什么后面会出现这些乱七八糟的东西,回想第一个程序为什么能正确显示 fffffffffff,所以又回去将本博客中的第一个程序进行了断点调试
还是在 s:= string(buf); 这行设置断点(F5),如图
再按F9运行,到断点处,再看 buf的值
、
确实从0到10是 fffffffffff,11是#0,但是到16开始又有一些乱七八糟的东西出现了。所以就说明了初始化的重要性:进行初始化的内容就会确定是初始化时候的值,而没有初始化的部分可能是随机的值,这样就存在潜在的危险,因为对于不确定的东西就很难进行明确的控制
但是还有一种情况,就是将一个char型数组的所有元素都赋值为非 #0 的字符,在进行类型转换为string 类型会出现什么情况呢
程序四
procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
a: array[0..2] of Char;
i: Integer;
begin
for i:=0 to 2 do
a[i]:= 'j';
s:= string(a);
ShowMessage(s[1]+' '+s[2]+ ' '+s[3] +' '+ IntToStr(Integer(s[4])));
end;
补充:Char数组根据定义可以是从0开始,也可以是从1开始,也可以是从其他任何数开始(这点和C/C++中的数组不同),但是String的字符存储要从 1 开始
显示的结果如图
所以可以看出,将一个所有元素都为非 #0 的字符数组,强制转换为string,那么这个string会拷贝这个元素,并且自动添加一个 #0在string中作为结尾
如果这个字符数组中某一个元素为 #0 ,那么强制转化为 string之后,就只会保留#0 及其之前的字符串
使用PChar分配动态内存,并将一个PChar里面的所有元素都赋值为非 #0 的字符,在进行类型转换为string 类型和上面的效果一样
procedure TForm1.btn1Click(Sender: TObject);
var
s: string;
a: array[0..2] of Char;
p: PChar;
i: Integer;
begin
GetMem(p, 3);
for i:=0 to 2 do
p[i]:= 'j';
s:= string(p);
ShowMessage(s[1]+' '+s[2]+ ' '+s[3] +' '+ IntToStr(Integer(s[4])));
end;
原因
在程序三中,我们声明了字符数组 buf,buf分配了255字节的内存,这时候buf 并没有显式声明,所以buf的内容就是其分配的内存中原来的那些乱七八糟的东西(对本程序是完全没有意义的),但是第一个程序显式声明了从0到10的元素,第三个程序显示声明了0 到15 的元素,可是第一个程序的11 个元素及其之后的元素还是原来那些乱七八糟的东西,第三个程序的16个元素及其之后的元素也还是原来那些乱七八糟的东西。
不过第一个程序比较巧合的是第11 个元素碰巧是 #0,所以在这个程序最终的效果碰巧正确(但是这里是隐藏着隐患的),而第三个程序就没有那么巧合了,所以就又显示了一个乱七八糟的字符。这并不是意味着第一个程序正确,只是它比较“幸运”罢了。但是项目开发并不是开玩笑,不能靠巧合和运气,必须要确定和稳定
所以不论上面谈到的什么情况,要想避免可能出现的错误,唯一的原则就是:显式的声明想要结束的地方为 #0,这样就不会出错了,这样的代码就比较可靠,不会因为上面的那种巧合来出现“正确的”效果或者“错误的”效果
总结
首先,其实我们在学习编程的时候,一直有书或者博客上有建议说声明一个变量之后,一定要初始化,否则可能出现一些意想不到的错误。虽然这里的buf 也进行了初始化,但是初始化不完全(并没有考虑到字符串应该以#0 作为结尾),所以就出现了这样的问题。在C/C++里面也是和Delphi一样的。
另外,在编程的时候,难免因为很多问题没有考虑到而出现这样那样的问题,这个时候不要瞎猜,可以为自己的程序设置几个断点来调试一下、去看看运行时候的变量的值……
Delphi的调试就类似与上面所讲的,更详细的可以看http://www.cnblogs.com/xumenger/p/4443975.html
C/C++里面也有,我就比较喜欢Linux环境下的GDB调试器,GDB的简单使用教程,参考:http://www.cnblogs.com/xumenger/p/4214068.html
Delphi字符串与字符数组之间的转换(初始化的重要性)的更多相关文章
- Delphi字符串、PChar与字符数组之间的转换
来自:http://my.oschina.net/kavensu/blog/193719 ------------------------------------------------------- ...
- C# 16进制与字符串、字节数组之间的转换(转)
1.请问c#中如何将十进制数的字符串转化成十六进制数的字符串 //十进制转二进制 Console.WriteLine("十进制166的二进制表示: "+Convert.ToSt ...
- C# 16进制与字符串、字节数组之间的转换 (转载)
1.请问c#中如何将十进制数的字符串转化成十六进制数的字符串 //十进制转二进制 Console.WriteLine(, )); //十进制转八进制 Console.WriteLine(, )); / ...
- C#串口通讯,16进制与字符串、字节数组之间的转换。
1.将十进制数的字符串转化成十六进制数的字符串 //十进制转二进制Console.WriteLine("十进制166的二进制表示: "+Convert.ToString(166, ...
- C# 16进制与字符串、字节数组之间的转换
1.请问c#中如何将十进制数的字符串转化成十六进制数的字符串//十进制转二进制 Console.WriteLine("十进制166的二进制表示: "+Convert.ToStrin ...
- C# 16进制与字符串、字节数组之间的转换(串口通讯中)
1.c#中如何将十进制数的字符串转化成十六进制数的字符串//十进制转二进制 Console.WriteLine("十进制166的二进制表示: "+Convert.ToString( ...
- Delphi的字符串、PChar和字符数组之间的转换
参考:http://my.oschina.net/kavensu/blog/193719 以下的各种方法都是我在Delphi 6的环境下测试成功的,可能根据你的开发环境.不同的上下文语境……有一些可能 ...
- QString和char字符数组之间的转换(QTextCodec.toUnicode方法,特别注意\0的问题)
How can I convert a QString to char* and vice versa ?(trolltech) Answer:In order to convert a QStrin ...
- String与包装类_字节数组_字符数组间的转换
1.字符串与基本数据类型,包装类之间的转换 2.字符串与字节数组间的转换 3.字符串与字符数组间的转换 4.String与StringBuffer ①String---->StringBuffe ...
随机推荐
- centos: vmware 安装centos 7连不上网
在vmware上安装centos 7时,安装完成后无法连接网络,通过搜索查找原来是有线网卡没有激活,默认情况下centos和redhat都不启用有线网卡,只能手动开启或者安装时直接启用. 1.进入命令 ...
- u-boot 2011.09 开启debug 调试
以前做过,现在刚才又想不起来了,这个错误非常的严重. 在这里记一下. debug 调试信息的开启在 include/common.h 有如下宏定义: #ifdef DEBUG #define debu ...
- ext grid 子表格
Ext.define('app.view.main.biz.customer.receipt.followup.FollowUpActionPanel', { extend: 'Ext.grid.Pa ...
- PHP无法编译undefined reference to `libiconv_open
./configure --prefix=/usr/local/php52 make时提示:.....................................................e ...
- python迭代器与iter()函数实例教程
python迭代器与iter()函数实例教程 发布时间:2014-07-16编辑:脚本学堂 本文介绍了python迭代器与iter()函数的用法,Python 的迭代无缝地支持序列对象,而且它还允许程 ...
- net use与shutdown配合使用,本机重启远程服务器
net use与shutdown配合使用,本机重启远程服务器 今天服务器出现问题了,能ping通,但就是远程登录服务器后,服务器无法响应. 在本机测试发现ftp服务可以使用,于是就想通过ftp ...
- Delphi XE5 常见问题解答
Delphi XE5 常见问题解答 有关于新即时试用的问题吗?请看看 RAD Studio 即时试用常见问答. 常见问题 什么是 Delphi? Embarcadero? Delphi? XE5 是易 ...
- ePass1000 Full ActiveX Control Reference Manual Version 2.0
ePass1000 Full ActiveX Control Reference Manual Version 2.0 Error Code Value Return Status Descripti ...
- Java for LeetCode 215 Kth Largest Element in an Array
Find the kth largest element in an unsorted array. Note that it is the kth largest element in the so ...
- Windows 下的 MarkdownPad 2 工具使用
MarkdownPad 2 工具(windows) 一. 软件下载和安装 下载登陆官网: http://markdownpad.com/ 点击Download,会自动下载.或者直接点击http://m ...