首页 / DELPHI / Delphi - 字符串详解

Delphi - 字符串详解

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Delphi - 字符串详解，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3932字，纯文字阅读大概需要6分钟。

内容图文

技术交流,DH解说.

以前写过一次,现在全部重写吧.比较基础了,高手莫笑.

记得有次在盒子上面看到有个人出的面试题,第一题就是:
AnsiString 和 WideString的区别.
好这里先留给大家想想,我讲完了,大家就应该知道了.嘿嘿.

首先分类:
1 ShortString,可以容纳255个字符,主要为了老版本兼容
2 AnsiString,可以容纳2的31次方个字符,D2009前默认的String类型
3 UnicodeString,可以容纳2的30次方个字符,D2009及以后的默认String类型
4 WideString,可以容纳2的30次方个字符,主要在COM中用的比较多.

好一个一个来讲:
ShortString
我们看到上面说的它可以容纳255个字符,但是它所占的空间是字符长度加1,为什么?
我们来看个例子:

Procedure TForm3 . Btn1Click(Sender: TObject);

Var

S: String [ 15 ];

Begin

S:= ‘HuangJackyAAAAA‘ ;

ShowMessageFmt( ‘%d‘ , [Length(S)]); //15个字符

ShowMessageFmt( ‘%d‘ , [SizeOf(S)]); //空间大小是16

End ;

从上面的代码我们可以看出来,ShortString变量不是用的指针,而是直接就是内存块,不然SizeOf应该是4的.既然我们发现这个问题,我们肯定要去看下它的内存情况吧.

我们可以发现它第一个字节用来存放的字符串的长度,所以它只能容纳255个字符,$FF,是吧.
那么把上面的代码改一下:

Procedure TForm3 . Btn1Click(Sender: TObject);

Var

S: String [ 15 ];

Begin

S:= ‘HuangJackyAAAAA‘ ;

ShowMessageFmt( ‘%d‘ , [ord(S[ 0 ])]); //同样是15,哈哈.

ShowMessageFmt( ‘%d‘ , [SizeOf(S)]);

End ;

好的,这样我们已经掌握了第一种字符串了.

AnsiString
用同样的代码测试:

Procedure TForm3 . Btn1Click(Sender: TObject);

Var

S: AnsiString ;

Begin

S:= ‘HuangJackyAAAAA‘ ;

ShowMessageFmt( ‘%d‘ , [Length(S)]); //15

ShowMessageFmt( ‘%d‘ , [SizeOf(S)]); //4

End ;

说明变量S只是一个指针.

好去看看这个地址:

是吧,那么存放实际字符串这块内存是怎么样组织的呢?

偏移	-12	-10	-8	-4	0-长度-1	最后一位
内容	字符页码	每个字符大小	引用次数	字符串长度	实际内容	0

名词解释下:页码是什么?编码,UTF-8或者GBK这些.
我们知道字符串其实是一个对象,但是它的释放却不需要我们操心,那就是因为当引用次数为0的时候,编译器会自动释放.
我们上面说了AnsiString能容纳2的31次方个字符,是的,因为它的长度占了4个字节.
好我们写代码来测试一下:

Procedure TForm3 . Btn1Click(Sender: TObject);

Var

S: AnsiString ;

I: Integer ;

Begin

S:= ‘HuangJackyAAAAA‘ ;

I:= Integer (S);

ShowMessage(IntToHex(PWord(I- 12 )^, 4 )); //$03A8

ShowMessage(IntToHex(PWord(I- 10 )^, 4 )); //$0001,AnsiString中一个元素就一个字节

ShowMessage(IntToHex(PCardinal(I- 8 )^, 8 )); //$FFFFFFFF

ShowMessage(IntToHex(PCardinal(I- 4 )^, 8 )); //$0000000F

ShowMessageFmt( ‘%d‘ , [Length(S)]); //15

ShowMessageFmt( ‘%d‘ , [SizeOf(S)]); //4

End ;

来贴图一张:

和我们上面说的一样吧.
我们再去看下页码对应的是什么编码.$03A8就是936,查MSDN 936 - gb2312.哈哈.
UnicodeString的内存分布也是一样的.所以我感觉-12和-10加入主要为了UnicodeString服务的.因为Unicode里面的编码就很多了,每个元素的大小也根据编码不同有所不同的.
进入WideString之前,我们看看Delphi里面Length函数是怎么实现的.

Unit3 . pas .40 : I:=Length(S);

004B33CD 8B45FC mov eax,[ebp- $04 ]

004B33D0 85C0 test eax,eax

004B33D2 7418 jz $004b33ec

004B33D4 8BD0 mov edx,eax

004B33D6 83EA0A sub edx, $0a

004B33D9 66833A01 cmp word ptr [edx], $01

004B33DD 740D jz $004b33ec

004B33DF 8D45FC lea eax,[ebp- $04 ]

004B33E2 33C9 xor ecx,ecx

004B33E4 8B55FC mov edx,[ebp- $04 ]

004B33E7 E8782EF5FF call @InternalLStrFromUStr //因为我们不是用的Unicode所以这里会被跳过

004B33EC 85C0 test eax,eax

004B33EE 7405 jz $004b33f5

004B33F0 83E804 sub eax, $04 //对就是这样,偏移-4

004B33F3 8B00 mov eax,[eax] //取得它的值.是吧

004B33F5 8BD8 mov ebx,eax

反编译代码比Delphi7多太多了...
刚才在翻VCL代码的时候发现这样一个结构体:就是我们刚才说的

StrRec = packed record

codePage: Word ;

elemSize: Word ;

refCnt: Longint ;

length: Longint ;

end ;

WideString
从名字看,我们就知道了它一个字符肯定占2个字节了.哈哈,看例子:

Procedure TForm3 . Btn1Click(Sender: TObject);

Var

S: WideString ;

Begin

S:= ‘HuangJackyAAAAA‘ ;

ShowMessageFmt( ‘%d‘ , [Length(S)]); //15

ShowMessageFmt( ‘%d‘ , [SizeOf(S[ 1 ])]); //2

ShowMessageFmt( ‘%d‘ , [SizeOf(S)]); //4

End ;

是吧,每个字符是2个字节,变量还是存放的指针.像AnsiString那样看看它实际数据在内存中的组织:

偏移	-4	0~长度-1	最后一个
内容	字符串长度	实际字符串内容	$00 $00

它同样是用4个字节来存储长度,但是它每个元素的大小是2个字节,所以它最多只能存储2的30次方个字符.

是不是想跑去看它的内存呢?

长度是$1E??哈哈,长度要除2塞,因为这个长度是这个内存块的长度.

最后再多说一个:
PAnsiChar,PWideChar
这个就是C++里面的Char*,也就是末尾是0的那种字符,这个就比较单纯了,没有什么用专门的字节来存储长度,存储引用次数.所以很多地方我们能用PChar就用PChar,因为String类型的确很耗资源.
C++的人笑了,不要笑,CString一样有这个问题.
看个例子:

Procedure TForm3 . Btn1Click(Sender: TObject);

Var

S: PAnsiChar ;

Begin

S:= ‘HuangJackyAAAAA‘ ;

ShowMessageFmt( ‘%d‘ , [StrLen(S)]); //15

ShowMessageFmt( ‘%d‘ , [SizeOf(S^)]); 1

End ;

看下内存,证明我没有忽悠人.

前面和它不沾边了吧,尾巴是0结尾了吧.

开篇时候提的问题,大家也知道区别了吧.平时不要看字符串简单,其实我们了解得还不够.

从上面看出来,字符串使用的使用第一个元素下标是从1开始的不是0.其他使用的注意事项打算写在下一篇文章里面.

我是DH,貌似该吃午饭了.

原文：http://www.cnblogs.com/chenmfly/p/4858921.html

内容总结

以上是互联网集市为您收集整理的Delphi - 字符串详解全部内容，希望文章能够帮你解决Delphi - 字符串详解所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1079986.html

来源：【匿名】

【上一篇】Delphi如何处理不同类型的文件【下一篇】为何用Delphi程序写的POST不能下传图片

更多 ►

【Delphi - 字符串详解】教程文章相关的互联网学习教程文章

delphi字符串操作函数一览

首部 functionSameText(constS1, S2: string): Boolean; $[SysUtils.pas 功能返回两个字符串是否相等说明不区分大小写参考 <NULL> 例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部 functionAnsiUpperCase(constS: string): string; $[SysUtils.pas 功能返回字符串S的大写形式说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符...

[转载] Delphi 的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar【代码】

//单字符 Char、AnsiChar (在目前版本(2007)中, 它们是一回事, 只有 1 字节大小)var c: Char; {Char 类型的取值范围是: #0..#255, 用十六进制表示是: #$0..#$FF}begin {用十进制方式赋值:} c := #65; ShowMessage(c); {A} {用十六进制方式赋值:} c := #$41; ShowMessage(c); {A} {用 Chr 函数代替 # 符号} c := Chr(65); ShowMessage(c); {A} c := Chr($41); ShowMessage(c); {A} {Char 长度当然会是 1} ...

Delphi TMemoryStream写入到字符串和字符串写入到流【代码】

一、TMemoryStream数据写入到字符串里var lvStream:TMemoryStream; s:AnsiString; p: PAnsiChar; begin lvStream:= TMemoryStream( pvObject); GetMem(p, lvStream.Size + 1); FillChar(p^, lvStream.Size, 0); Move(lvStream.Memory^,p^,lvStream.Size); s:=p; FreeMem(p);View Code二、字符串写入到TMemoryStreamvarlvStream:TMemoryStream;s:AnsiString; begins:=‘abcdefghjkimoop‘;lvStream.Write(s[1], Length(s));lvStrea...

DELPHI字符串、数组操作函数(转)

对字符串及数组的操作，是每个程序员必须要掌握的。熟练的使用Delphi的这些函数，在编程时能更加得心应手。　　1.Copy 　　功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度( 　　即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。　　参考实例：　　var 　　S: Strin...

Delphi中字符串补齐方法

函数功能：当Str不满Len长度时，在Str前自动填充PadStr以补足长度,例子如下：Str：原字符串Len：补多长PadStr：用什么补齐，比如‘0’function PadString(Str: string; Len: Integer; PadStr: Char): string;begin　　Result:= StringOfChar(PadStr, Len - Length(Str)) + Str;end;原文：http://www.cnblogs.com/theonewu/p/3693274.html

delphi 字符串查找

1、在源字符串Src中查找子串S，返回Src中S之前的部分Function Before( Src,S:string ): string ;Var　　F: Word ;begin 　 if Src = ‘‘ then 　　　Before := ‘‘; 　F := Pos(S, Src); 　　if F = 0 then 　　begin 　　　　Before := S; 　　end 　　else 　　　　Before := Copy(Src,1,F-1);end; 2、在源字符串Src中查找子串S，返回Src中S之后的部分function After(Src: string; S: string):string;Var 　　F:...

【转】Delphi中字符串的处理【代码】

原文来自: 【100脚本网 http://www.pc100.net/ 】一、几个字符串处理的基本函数 a)子串定位——获取子串在原字串中的位置(不是数组下标，而是第几个) 1 function pos(‘子串‘，‘原字符串‘)：integer 说明：当有中文时，最好这样用：pos(‘子串‘，wideString(‘原字符串‘)),这样可以避免前一个汉字的后半部分和后一个汉字的前半部分也恰好能构成一个汉字时出现问题。 b)子串截取——拷贝出原字符串中的部分子串(Ind...

Delphi - 字符串详解【图】

技术交流,DH解说.以前写过一次,现在全部重写吧.比较基础了,高手莫笑.记得有次在盒子上面看到有个人出的面试题,第一题就是:AnsiString 和 WideString的区别.好这里先留给大家想想,我讲完了,大家就应该知道了.嘿嘿.首先分类:1 ShortString,可以容纳255个字符,主要为了老版本兼容2 AnsiString,可以容纳2的31次方个字符,D2009前默认的String类型3 UnicodeString,可以容纳2的30次方个字符,D2009及以后的默认String类型4 WideString,可以...

关于Delphi中的字符串的详细分析【图】

只是浅浅的解析下，让大家可以快速的理解字符串。其中的所有代码均在Delphi7下测试通过。Delphi 4,5,6,7中有字符串类型包括了：短字符串（Short String）长字符串（Long String）宽字符串（Wide String）零结尾字符串（Null-Terminated String）、PChar和字符数组1、短字符串（Short String）固定长度，最大字符数个数为255，短字符串也成为长度字节（Length-byte）字符串，这时因为短字符串的第0个元素包含了这个字符串的长度（字...

如何使用Java套接字作为客户端并使用delphi indy tcpserver作为服务器来发送字符串【代码】

服务器的OnExecute事件,例如trys := AContext.Connection.IOHandler.ReadLn(IndyTextEncoding_UTF8);ok:=true;excepton e:exception do winapi.windows.beep(500,500); end;基本问题是从客户端发送到服务器解决方法:我通过在Java代码的字符串末尾添加LF字符来解决它String str = "Test\n";try {socket = new Socket("localhost", 13428);osw =new OutputStreamWriter(socket.getOutputStream(), "UTF-8");osw.write( str, 0, str.l...

mysql – 当我要求unsigned big int时,为什么Delphi(Zeos)在SQLite中给我带宽字符串？

我正在使用最新的Zeos和SQLite 3.一旦我们创建了所有持久性整数字段TLargeInt,它通常很顺利,从MySQL转换. 但是当我们使用列定义unsigned big int(根据https://www.sqlite.org/datatype3.html允许的唯一无符号类型)时,Delphi将结果字段调用为ftWidestring.解决方法:不,它不会“恢复”为字符串,SQlite只是存储提供的数据. 如the documentation states：SQLite supports the concept of “type affinity” on columns. The type affin...

DELPHI - 最热教程

在ubuntu 上使用wine 运行Delphi win32...Delphi编程常用快捷键大全 delphi TDbGrid 右键 PopupMenu 菜单只...Delphi 的链式代码手把手教你用Delphi实现硬件版hello wo...Delphi ADO数据库控件（转）delphi程序员腾讯QQphp程序员面试题目整...Delphi 7连接MySql 5.5.15 Sqlite框架Delphi10.3 delphi 根据数据库结构生成TreeView

首页 / DELPHI / Delphi - 字符串详解

Delphi - 字符串详解

内容导读

内容图文

内容总结

内容备注

内容手机端

【Delphi - 字符串详解】教程文章相关的互联网学习教程文章

delphi字符串操作函数一览

[转载] Delphi 的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar【代码】

Delphi TMemoryStream写入到字符串和字符串写入到流【代码】

DELPHI字符串、数组操作函数(转)

Delphi中字符串补齐方法

delphi 字符串查找

【转】Delphi中字符串的处理【代码】

Delphi - 字符串详解【图】

关于Delphi中的字符串的详细分析【图】

如何使用Java套接字作为客户端并使用delphi indy tcpserver作为服务器来发送字符串【代码】

mysql – 当我要求unsigned big int时,为什么Delphi(Zeos)在SQLite中给我带宽字符串？

字符串 - 相关标签

DELPHI - 最新教程

DELPHI - 最热教程

首页 / DELPHI / Delphi - 字符串 详解

Delphi - 字符串 详解

内容导读

内容图文

内容总结

内容备注

内容手机端

【Delphi - 字符串 详解】教程文章相关的互联网学习教程文章

字符串 - 相关标签

DELPHI - 最新教程

DELPHI - 最热教程

首页 / DELPHI / Delphi - 字符串详解

Delphi - 字符串详解

【Delphi - 字符串详解】教程文章相关的互联网学习教程文章