学了好多不了解的知识:

procedure TForm1.Button1Click(Sender: TObject);
var
s1 : String;
s2 : String[];
begin
s1:='ç1很好';
ShowMessage(s1); // 这里显示正常
s2:=s1;
ShowMessage(s2); // 这里显示乱码。
// 问这个问题的原因是,在一个recode pack 里定义了String[255],但是使用Unicode字符给它赋值的时候,就乱码了,这该怎么办?
// 原因是String[255]还是被翻译成单字节字符,即使在Delphi 2010里也是如此
// 有没有办法定义一个类似 s2: UnicodeString[255]; 或者s2: WideString[255]这样的东西,好放在record里面使用
end; procedure TForm1.Button2Click(Sender: TObject);
var
S: ShortString; { 255个字符长度,256个字节}
S1: String[]; { S1和S的字符类型一样,通过使用String声明字符串并且在String后面用中括号规定字符个数的形式定义字符串}
Len: Integer;
begin
S := 'Hello';
Len := Ord(S[]); { Len现在包含S的长度为5,Ord函数可以把一个字符类型转换为整数类型}
ShowMessage(IntToStr(Len));
Len := SizeOf(S); { Len现在包含的是ShortString类型的大小,为256字节,并不是字符串的长度}
ShowMessage(IntToStr(Len));
ShowMessage(IntToStr(Length(s1)));
end; procedure TForm1.Button3Click(Sender: TObject);
var
DirName :Array [..] of Char;
myname : String;
begin
myname := 'very good';
// DirName := myname; // 这里赋值通不过
// DirName := PChar(myname); // 这里赋值通不过
// PAnsiChar StrPCopy(PAnsiChar Dest, const AnsiString Source);
// PWideChar StrPCopy(PWideChar Dest, const UnicodeString Source);
StrPCopy(dirname, myname); //
ShowMessage(DirName); // 这样才可以
end; procedure TForm1.Button4Click(Sender: TObject);
var
S: ShortString;
S1: String[];
begin
S := 'Hello';
ShowMessage(IntToStr(Length(s)));
ShowMessage(IntToStr(Length(s1))); // 这里显示内容不定,因为S1没有进行初始化
end; procedure TForm1.Button5Click(Sender: TObject);
var
S: ShortString;
S1: String[]; // String[255]的长度,不乘以2。它还是会被翻译成Byte
S3: String;
S4: Array [..] of Char; // 并没有在前后预留什么空间
begin
S := 'Hello';
ShowMessage(IntToStr(Length(s))); //
PWord(@S)^ := ;
ShowMessage(IntToStr(Length(S))); // 100,因为自动管理的长度值被改了
PWord(@S1)^ := ;
ShowMessage(IntToStr(Length(S1))); // 200,因为自动管理的长度值被改了 SetLength(S3, ); ShowMessage(IntToStr(SizeOf(s))); // 256,之所以多了1,是因为有长度管理
ShowMessage(IntToStr(SizeOf(s1))); // 256,之所以多了1,是因为有长度管理(还是最后一个字符是#0?不太可能)
ShowMessage(IntToStr(SizeOf(s3))); //
ShowMessage(IntToStr(SizeOf(s4))); //
ShowMessage(s4); // 内容不定,因为没有初始化
end; // 删掉Array里的某个字符,相当于Delete函数
procedure ArrayDelete(var pArray: array of Char; const nIndex, nCount: Integer);
begin
// Move ( const SourcePointer; var DestinationPointer; CopyCount : Integer ) ;
Move(pArray[nIndex + nCount], pArray[nIndex], (StrLen(pArray) - nCount + ) * SizeOf(Char));
end; procedure TForm1.Button6Click(Sender: TObject);
var
a: array[..] of Char;
begin
a := '';
ArrayDelete(a, , );
ShowMessage(a);
end;

lstrcpy
你也可以用windows单元里的lstrcpy函数。
这个是windows提供的等价strcpy的函数。
性能比strcpy低,但是有异常处理。

------------------------------------------------

var
DirName : String[255]
begin
// 若干赋值
Delete(DirName, Length(DirName), 1);
end;

现在改成:
var
DirName : Array [0..254] of Char
begin
// 这个Delete应该怎么写?没有初始化的字符,默认都是#0?
end;

比方说S1是Array [0..255] of Char
目前S1的值是MyName
我就是想把最后一个字符去掉,改成MyNam

------------------------------------------------

应该是错误的办法:
move(a[1], a[0], strlen(a)*sizeof(char));
去看tlist的delete方法

可能的办法:
a[5] := 0;

聪明办法:
procedure ArrayDelete(var pArray: array of Char; const nIndex, nCount: Integer);
begin
Move(pArray[nIndex + nCount], pArray[nIndex], (StrLen(pArray) - nCount + 1) * SizeOf(Char));
end;

var
a: array[0..255] of Char;
begin
a := '123456789';
ArrayDelete(a, 2, 2);
ShowMessage(a);
end;

笨办法:
mystring:=DirName;
mystring:=LeftStr(mystring, Length(mystring)-1);
StrPCopy(DirName, mystring);

------------------------------

疑问:
1. Array数组没有用完的时候,后面的字符会被初始化成什么?什么才是字符串准确终止?
2. String可否包含#0?应该可以。另外要学会使用String的头部数据。
3. 据说AnsiString和UnicodeString可以相互赋值
4. move只是移动内存数据 不会覆盖不被移动的区域
那a这个array是如何感受到,它的字符串变短了呢?
array不是有一个前缀,这样才能知道当前array用了多长的空间

学习了:
1. 新学了StrLen、Delete函数
2. 移动开发,String下标从0开始

--------------------------------

procedure TForm1.Button7Click(Sender: TObject);
var
S1: Array [0..255] of Char;
S2: String[255];
begin
S1:='0123456789';
S1[3]:=#0;
ShowMessage(String(S1)); // 012,我估计是转换到String的时候,碰到#0就停了。但其实S1的长度仍是10

S2:='0123456789';;
Byte(S2[0]) := 3;
ShowMessage(String(S2)); // 012,修改S2的长度管理,人工强行变成只使用了3个字符。
end;

这说明,array看到#0就停止。String[255]则是有一个前缀在管理使用的长度

这样就截断字符串了,就是你说的Delete,而且不考虑删除中间

最后一个小小问题:Array有一个前缀来管理使用的长度吗?
回答:没有。但是array of Char又有了。

--------------------------------

type
T = packed record
A: char;
B: string[5];
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
ShowMessage(IntToStr(SizeOf(T)));
end;

答案是8,即2+1+5

String[255]在高版本Delphi里还是被解释成Byte,总体长度256,使用StrPCopy可以给Array String拷贝字符串(内含许多实验测试)的更多相关文章

  1. 程序包需要 NuGet 客户端版本“2.12”或更高版本,但当前的 NuGet 版本为“2.8.50313.46”

    由于安装install-package newtonsoft.json 会出现需要 NuGet 客户端版本“2.12”或更高版本来安装,于是换成旧版的newtonsoft.json   PM> ...

  2. html5调用本机摄像头兼容谷歌浏览器高版本,谷歌浏览器低版本,火狐浏览器

    做这个功能的时候在网上查了一些资料,代码如下,在这个代码在谷歌浏览器46版本是没问题的,在火狐浏览器也行,但是在谷歌浏览器高版本下是不兼容的 <div id="body"&g ...

  3. jquery里把数组转换成json的方法

    首先来看,jquery里自带的,和json相关的函数: 1.$.parseJSON  :  用来解析JSON字符串,返回一个对象. 什么叫“JSON字符串”? 比如: var a={name:&quo ...

  4. 记一次如何解决低版本jar包里面的bug,不适宜替换成高版本的经历

    背景:目前正在迭代开发的项目,应用户要求新增一个电子文档转换的功能,即将不标准的excel文件转换为标准的excel文件(标准模板). 选择:pio ,本项目里面本来就有poi的jar包 问题:项目里 ...

  5. CDH6 高版本hbase+solr实现二级索引

    之前的环境是单独下载的CDH组件包搭建的集群,但是因为hadoop版本过低导致漏洞无法修复,重新搭建高版本集群环境. 新集群环境: 主要组件:hadoop,hbase,zookeeper,Key-Va ...

  6. 关于JDK高版本下RMI、LDAP+JNDI bypass的一点笔记

    1.关于RMI 只启用RMI服务时,这时候RMI客户端能够去打服务端,有两种情况,第一种就是利用服务端本地的gadget,具体要看服务端pom.xml文件 比如yso中yso工具中已经集合了很多gad ...

  7. java高版本下各种JNDI Bypass方法复现

    目录 0 前言 1 Java高版本JNDI绕过的源代码分析 1.1 思路一的源码分析 1.2 思路二的源码分析 2 基于本地工厂类的利用方法 2.1 org.apache.naming.factory ...

  8. Java反序列化中jndi注入的高版本jdk绕过

    群里大佬们打哈哈的内容,菜鸡拿出来整理学习一下,炒点冷饭. 主要包含以下三个部分: jndi注入原理 jndi注入与反序列化 jndi注入与jdk版本 jndi注入原理: JNDI(Java Name ...

  9. 警惕!高版本VS发布时预编译导致Mono中Razor找不到视图

    早前一段时间,一位朋友在Q群里面找到我,说它按照<Linux.NET学习手记>的操作,把一个ASP.NET MVC 4.0的项目部署到Mono之后出现Razor无法找到视图的现象.当时费了 ...

随机推荐

  1. BNU 26579 Andrew the Ant 【蚂蚁】

    链接: http://www.bnuoj.com/bnuoj/problem_show.php?pid=26579 http://www.bnuoj.com/bnuoj/contest_show.ph ...

  2. HDU 2040:亲和数

    亲和数 Time Limit: 2000/1000 MS (Java/Others)    Memory Limit: 65536/32768 K (Java/Others) Total Submis ...

  3. C# 课堂总结5-数组

    一. 数组:解决同一类大量数据在内存存储和运算的功能. 1.一维数组定义:制定类型,指定长度,指定名称.int[] a=new int[5]int[] a=new int[5]{23,23,23,1, ...

  4. HDOJ 1005

    Input The input consists of multiple test cases. Each test case contains 3 integers A, B and n on a ...

  5. 修改VISUAL STUDIO EXPRESS 2012新建C++文件编码

    本站文章除注明转载外,均为本站原创或者翻译. 本站文章欢迎各种形式的转载,但请18岁以上的转载者注明文章出处,尊重我的劳动,也尊重你的智商: 本站部分原创和翻译文章提供markdown格式源码,欢迎使 ...

  6. mpi中利用自定义归约操作实现merge

    在归并排序中,很重要的一步是将两个排序数组合并成一个数组,这个操作叫merge.merge操作可以用来解决某些Top K问题. 问题描述 在哼唱搜索中,用户通过哼唱一个音乐片段去搜索与其相似的音乐.后 ...

  7. 百度2015校园招聘自然语言处理project师面试

    面了一个多小时,大致回想下 1. 介绍一下简历上的项目 这个讲了好长时间,由于我做的是生物信息,面试官听得不太明确. 2. 一个城市每对夫妇都要生到一个男孩才停止生育,问终于该城市的男女比例 1:1, ...

  8. 异常:未能载入文件或程序集”DAL”或它的某一个依赖项——解决的方法

    以下是我再使用抽象工厂+反射重构机房时,在Factoy中出现了以下一个问题: 去网上查了一下资料,发现这是一个非常普遍的问题,它出现的原因主要有两种: 第一种: 载入DLL路径错误.解决的方法是调整D ...

  9. linux命令: mount

    mount使用示例: #mkdir -p /mnt/usbhd1 注:建立目录用来作挂接点(mount point) #mount -t ntfs /dev/sdc1 /mnt/usbhd1 (-t ...

  10. freemarker自己定义标签报错(三)

    freemarker自己定义标签 1.错误描写叙述 freemarker.core.ParseException: Encountered " " at line 14, colu ...