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

delphi 动态字节数组的转换Tbytes String ANSIString及TBytes之间的转换 ...

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

一、string转为ansistring
1、直接赋值 （有警告）
2、ansistring()类型强制转换。（无警告）

二、ansistring 转为string

1、直接赋值 （有警告）
2、string()类型强制转换。（无警告）

三、string 转为Tbytes

1、bytes:= bytesof(str) 已转为ansi编码
2、bytes:= widebytesof(str) UNICODE 编码

四、ansistring 转为Tbytes

1、bytes:= bytesof(str) ansi编码
2、bytes:= widebytesof(string(str)) UNICODE 编码

五、Tbytes 转为string

1、 str:=stringof(bytes) Tbytes 为ansi编码
2、 str:=widestringof(bytes) Tbytes 为unicode编码

六、PChar转String

用StrPas函数，StrPas(PChar):AnsiString;


{转换 TBytes 到 Integer}
procedureTForm1.Button1Click(Sender: TObject);
var
  bs: TBytes; {TBytes 就是 Byte 的动态数组}
  i: Integer;
begin
  {它应该和 Integer 一样大小才适合转换}
  SetLength(bs, 4);
  bs[0] := $10;
  bs[1] := $27;
  bs[2] := 0;
  bs[3] := 0;

  {因为 TBytes 是动态数组, 所以它的变量 bs 是个指针; 所以先转换到 PInteger}  i := PInteger(bs)^;   ShowMessage(IntToStr(i)); {10000}
end;

{从 Bytes 静态数组到 Integer 的转换会方便些}
procedureTForm1.Button2Click(Sender: TObject);
var
  bs: array[0..3] ofByte;
  i: Integer;
begin
  bs[0] := $10;
  bs[1] := $27;
  bs[2] := 0;
  bs[3] := 0;

  i := Integer(bs);
  ShowMessage(IntToStr(i)); {10000}
end;

{转换到自定义的结构}
procedureTForm1.Button3Click(Sender: TObject);
type
  TData = packedrecord
    a: Integer;
    b: Word;
  end;
var
  bs: array[0..5] ofByte; {这个数组应该和结构大小一直}
  data: TData;
begin
  FillChar(bs, Length(bs), 0);
  bs[0] := $10;
  bs[1] := $27;

  data := TData(bs);
  ShowMessage(IntToStr(data.a)); {10000}
end;

{转换给自定义结构的一个成员}
procedureTForm1.Button4Click(Sender: TObject);
type
  TData = packedrecord
    a: Integer;
    b: Word;
  end;
var
  bs: array[0..3] ofByte;
  data: TData;
begin
  FillChar(bs, Length(bs), 0);
  bs[0] := $10;
  bs[1] := $27;

  data.a := Integer(bs);
  ShowMessage(IntToStr(data.a)); {10000}
end;

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
delphi获取文件路径发布时间：2022-07-18
下一篇：
delphi面向对象继承窗体发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

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

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