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

String[255]在高版本Delphi里还是被解释成Byte,总体长度256,使用StrPCopy可以给Arra ...

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

学了好多不了解的知识:

procedure TForm1.Button1Click(Sender: TObject);
var
  s1 : String;
  s2 : String[255];
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[255];  { S1和S的字符类型一样,通过使用String声明字符串并且在String后面用中括号规定字符个数的形式定义字符串}
  Len: Integer;
begin
  S := 'Hello';
  Len := Ord(S[0]); { 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 [0..255] 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[255];
begin
  S := 'Hello';
  ShowMessage(IntToStr(Length(s)));
  ShowMessage(IntToStr(Length(s1))); // 这里显示内容不定,因为S1没有进行初始化
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  S: ShortString;
  S1: String[255]; // String[255]的长度,不乘以2。它还是会被翻译成Byte
  S3: String;
  S4: Array [0..255] of Char; // 并没有在前后预留什么空间
begin
  S := 'Hello';
  ShowMessage(IntToStr(Length(s))); // 5
  PWord(@S)^ := 100;
  ShowMessage(IntToStr(Length(S))); // 100,因为自动管理的长度值被改了
  PWord(@S1)^ := 200;
  ShowMessage(IntToStr(Length(S1))); // 200,因为自动管理的长度值被改了

  SetLength(S3, 255);

  ShowMessage(IntToStr(SizeOf(s)));  // 256,之所以多了1,是因为有长度管理
  ShowMessage(IntToStr(SizeOf(s1))); // 256,之所以多了1,是因为有长度管理(还是最后一个字符是#0?不太可能)
  ShowMessage(IntToStr(SizeOf(s3))); // 4
  ShowMessage(IntToStr(SizeOf(s4))); // 512
  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 + 1) * SizeOf(Char));
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  a: array[0..255] of Char;
begin
  a := '123456789';
  ArrayDelete(a, 2, 3);
  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


鲜花

握手

雷人

路过

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

请发表评论

全部评论

专题导读
上一篇:
delphi创建数据库配置文件(TIniFile)发布时间:2022-07-18
下一篇:
Delphi对象的创建(create)与释放(free/destory)发布时间: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