学了好多不了解的知识:

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. 基于visual Studio2013解决算法导论之022队列实现(基于链表)

     题目 基于链表的队列实现 解决代码及点评 #include <stdio.h> #include <stdlib.h> #include <time.h> ...

  2. Wakelock API详解

    官方资料  http://developer.android.com/intl/zh-CN/reference/android/os/PowerManager.WakeLock.html http:/ ...

  3. X窗口系统名词解释

    前端时间Gentoo的桌面环境出了点问题,发现自己对Linux的桌面环境了解的很少,于是恶补了一下知识,以下名词解释基本上都是来自维基百科的条目和<Linux程序设计(第三版)>.一般而言 ...

  4. Spring Thread Pool 线程池的应用

    Spring and Java Thread example 扫扫关注"茶爸爸"微信公众号 坚持最初的执着,从不曾有半点懈怠,为优秀而努力,为证明自己而活. Download it ...

  5. STM32 + RT Thread OS 学习笔记[二]

    串口通讯例程 通过上面的练习,对STM32项目开发有了一个直观印象,接下来尝试对串口RS232进行操作. 1.   目标需求: 开机打开串口1,侦听上位机(使用电脑串口测试软件)发送的信息,然后原样输 ...

  6. Java基础02 方法与数据成员

    作者:Vamei 出处:http://www.cnblogs.com/vamei 欢迎转载,也请保留这段声明.谢谢! 在Java基础01 从HelloWorld到面向对象,我们初步了解了对象(obje ...

  7. Linux/Kubuntu/Ubuntu下安装字体

    1>获得字体文件*.ttf,免费下载地址:http://www.font5.com.cn/ simfang.ttf 仿宋体 simhei.ttf 黑体 simkai.ttf 楷体 simsun. ...

  8. 使用Java创建RESTful Web Service(转)

    REST是REpresentational State Transfer的缩写(一般中文翻译为表述性状态转移).2000年Roy Fielding博士在他的博士论文“Architectural Sty ...

  9. [置顶] 浅谈Android的资源编译过程

    Android APK 一.APK的结构以及生成 APK是Android Package的缩写,即Android application package文件或Android安装包.每个要安装到Andr ...

  10. MSSQL - 存储过程事物

    效果: 创建带有事物的存储过程: use sales --指定数据库 create table bb --创建bb 这个表 ( ID int not null primary key ,--账号 Mo ...