• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi中的各种字符串、String、PChar、Char数组

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

参考博客:http://www.cnblogs.com/pchmonster/archive/2011/12/14/2287686.html

 

其中的所有代码均在Delphi7下测试通过。

Delphi 4,5,6,7中有字符串类型包括了:

  • 短字符串(Short String)
  • 长字符串(Long String)
  • 宽字符串(Wide String)
  • 零结尾字符串(Null-Terminated String)、PChar和字符数组

1、短字符串(Short String)

固定长度,最大字符数个数为255,短字符串也称为长度字节(Length-byte)字符串,这是因为短字符串的第0个元素包含了这个字符串的长度(字符串中字符的个数)。因此ShortString的缺省最大长度为256个字节(255个字符+1个长度字节=256),声明一个短字符串有两种方式,如下:

var
  S: ShortString;   { 255个字符长度,256个字节}
  S1: String[255];  { S1和S的字符类型一样,通过使用String声明字符串并且在String后面用中括号规定字符个数的形式定义字符串}
  Len: Integer;
begin
  S := 'Hello';
  Len := Ord(S[0]); { Len现在包含S的长度为5,Ord函数可以把一个字符类型转换为整数类型}
  Len := SizeOf(S); { Len现在包含的是ShortString类型的大小,为256字节,并不是字符串的长度} 
end;

  

以上例子通过S[0]可以获得S的字符串长度,当然也可以用Length函数来确定一个短字符串的长度。

可以通过数组的下标来访问ShortString中的一个特定位置的字符,具体使用参看下面例子和注释说明:

var
  S: string[8];{这种定义方式,是定义S是一个字符串,且S是最多含有8个字符的字符串}
  i: Integer;
begin
  S := 'a_pretty_darn_long_string';
  { 因为S只有8个字符大小,
  因此s的实际存储的内容为“a_pretty”}
  i := 10;
  S[i] := 's';
  { 因为S只有8个字符大小,
  试图改写第10个元素,将会使内存混乱}
end;

  

2、长字符串(Long String)

长字符串 (AnsiString)是一种动态分配的字符串,其大小只受可用内存的限制。声明一个长字符串,只需要用关键字String不加大小参数即可

在Delphi 7中AnsiString包含的字符是用单字节存储的。

var
  S: string;

  

由于是动态分配的,一次可以随意修改字符串,而不用担心对其他的影响,也不用担心越界的问题。String类型没有0元素,试图存取String类型的0元素会产生一个编译错误。

通过Length函数也可以获得长字符串的长度,也可以通过SetLength过程为长字符串设置长度。其在内存中分配情况如下:

 

  注意当给一个String类型赋值时候,赋的字符串太长,可能会报错:“String  literals may have at most 255 elements”。这时候你就纳闷了:不是说String的字符个数没有限制的吗?

  对于这个问题,我们给个代码示例(程序1

var
    s: string;
begin
    s:= '<?xml version="1.0" encoding="UTF-8"?><Msg><AppHdr><CharSet>UTF-8</CharSet><Fr>000100</Fr><To>SDC</To><BizMsgIdr>0000000002</BizMsgIdr><MsgDefIdr>V1.0</MsgDefIdr><BizSvc>067</BizSvc><CreDt>20130227100434</CreDt><Sgntr>fb3LY5VmhonZwhP+ntxI9A==</Sgntr></AppHdr><Document><Data><FndNm>name</FndNm><TtlFndVol>12681656.00</TtlFndVol><FndCd>159999</FndCd><FndSts>0</FndSts><NAV>1.0251</NAV><NtValDt>20130301</NtValDt><NtValTp>0</NtValTp></Data></Document></Msg>';
    
end.

  这个时候,将一个长度大于255的字符串直接赋值给string类型的变量就会报上面所说的错误。可以替代的办法是将一个较长的字符串分成多份,在赋值时候使用+ 再赋值,见例子(程序2

var
    s: string;
begin
    s:= '<?xml version="1.0" encoding="UTF-8"?><Msg><AppHdr><CharSet>UTF-8</CharSet><Fr>000100</Fr><To>SDC</To>'
    + '<BizMsgIdr>0000000002</BizMsgIdr><MsgDefIdr>V1.0</MsgDefIdr><BizSvc>067</BizSvc><CreDt>20130227100434</CreDt>'
    + '<Sgntr>fb3LY5VmhonZwhP+ntxI9A==</Sgntr></AppHdr><Document><Data><FndNm>FundName</FndNm><TtlFndVol>12681656.00</TtlFndVol>'
    + '<FndCd>159999</FndCd><FndSts>0</FndSts><NAV>1.0251</NAV><NtValDt>20130301</NtValDt><NtValTp>0</NtValTp></Data>'
    + '</Document></Msg>';

end.

  这个时候就可以编译成功了

3、宽字符串(Wide String)

宽字符串和长字符串一样,大小只受有效内存的限制,并实行动态分配。

在Delphi 7 中WideString被实现为2个字节存储一个字符,用WideString来处理多字节字符(比如汉字)是十分方便的。如:

var
  S: string;
  { 在Delphi 7中默认string等同于AnsiString}
  WS: WideString;
begin
  S := '世界你好';
  WS := S;
  ShowMessage(S[1]);  { 此时无任何显示,因为S[1]取出的是‘世’的一半}
  ShowMessage(WS[1]); { 显示‘世’}
end;

  要理解宽字符串就必须理解字符编码的规则,比如ASCII、UTF-8……

 

4、零结尾字符串(Null-Terminated String)、PChar和字符数组

在C和C++中没有真正的字符串数据类型,都是通过以Null结尾(0)的字符数组来实现的,字符数组没有长度字节,因此只能通过结尾的Null标志来作为字符串的字符结束标志。又因为Windows是用C编写的,很多Windows函数要用到以字符数组作为参数,但Pascal字符串类型不是字符数组,因为为了让Pascal字符串也能与Windows兼容,就需要一个字符串数组,PChar类型正是符合这种需求,在任何需要字符数组的地方都可用PChar。

虽然AnsiString和WideString都已经实现了NULL

相应的也有PAnsiChar和PWideChar,分别对应于AnsiChar字符和WideChar字符。

例如:Windows MessageBox函数,此函数声明如下:

function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;

  

第二个和第三个参数需要一个指向字符数组的指针,为了可以调用此函数,有以下三种方法来实现

1、PChar()类型转换

var
  Text: string;
  Caption: string;
begin
  Text := 'This is a test.';
  Caption := 'Test Message';
  MessageBox(0, PChar(Text), PChar(Caption), 0);
  { 这里PChar用来把string类型转换为Null结尾的字符串}
end;

 其中

2、PChar变量

我们先做一个实现,看看PChar类型到底是啥呢?

运行下面程序:

var
  Text: PChar;    { 声明为PChar类型}
  Str: string;    { 声明为String类型}
begin
  Text := 'This is a test.';             { 都被赋予了相同的字符串}
  Str := 'This is a test.';
  ShowMessage(IntToStr(SizeOf(Text)));   { 4字节,实质是指针}
  ShowMessage(IntToStr(SizeOf(Str)));    { 也是4字节,也是指针}
end;

  

通过上面的程序,我们知道Text(PChar类型)只不过是一个指针而已。

var
  Text: PChar;
begin
  Text := 'This is a test.';
  MessageBox(0, Text, 'Test Message', 0);
  { 这里Text直接声明为了PChar类型,字符串常量可以直接用}
end;

  

指针Text指向了这样一个内存区域,一个包含Null的结尾的 'This is a test.' 字符串的区域。其等同于下面的代码:

const
  TempString: array[0..15] of Char = 'This is a test.'#0;
var
  Text: PChar;
begin
  Text := @TempString[0];
  {Text指向Null结尾的TempString字符数组的第0个元素的地址,
  也就是整个字符数组的首地址}
  MessageBox(0, Text, 'Test Message', 0);
end;

  

3、Char类型字符数组

最后还可以用Char数组来代替PChar,代码如下:

小心内存访问越界的情况的出现

var
  Text1: array[0..14] of Char;  { 大小为15个字符}
  Text2: array[0..20] of Char;  { 大小为21个字符}
begin
  Text1 := 'This is a test.';   {Text1和Text2的字符长度都为15个字符}
  Text2 := 'This is a test.';
  MessageBox(0, Text1, 'Test Message 1', 0);
  {因为Text1的字符长度超过了其声明的大小,因为会内存访问混乱,显示换乱}
 
  MessageBox(0, Text2, 'Test Message 2', 0);
  {Text2的字符长度比起声明的大小要小,因为正常访问,显示正确}
end;

  

显示结果如下:

   

关于字符串就先浅浅的谈到这个,以后再深入了解。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi语句、过程函数发布时间:2022-07-18
下一篇:
Android实例-获取安卓手机WIFI信息(XE8+小米2) - 疯狂delphi发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap