delphi中怎样把string转为array of byte
1个回答
展开全部
以下为示例代码：
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
ab:array of byte;
i:integer;
begin
s:='this is a test';
SetLength(ab,Length(s));
for i:=1 to length(s) do
ab[i]:=byte(s[i]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
ab:array of byte;
i:integer;
begin
s:='this is a test';
SetLength(ab,Length(s));
for i:=1 to length(s) do
ab[i]:=byte(s[i]);
end;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
