delphi byte数组怎么转换成String
展开全部
// byte数组转换成String
function TFrmStringToByte.ByteToString(const Value: TByteArr): String;
var
I: integer;
S : String;
Letra: char;
begin
S := '';
for I := Length(Value)-1 Downto 0 do
begin
letra := Chr(Value[I] + 48);
S := letra + S;
end;
Result := S;
end;
>> 运用EG:
ShowMessage(ByteToString(byteArray));
function TFrmStringToByte.ByteToString(const Value: TByteArr): String;
var
I: integer;
S : String;
Letra: char;
begin
S := '';
for I := Length(Value)-1 Downto 0 do
begin
letra := Chr(Value[I] + 48);
S := letra + S;
end;
Result := S;
end;
>> 运用EG:
ShowMessage(ByteToString(byteArray));
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
逐个提取，转换
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
长度多加一个，最后一个＝0，作为结束
arr:array [0..6] of byte
arr[6]:=0
arr:array [0..6] of byte
arr[6]:=0
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
