J Jonson_sunshine Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-23 #5 你要的应该是字符串（显示）吧？ Byte是一字节的无符号整型，即0..255，用Char(Byte)实现转换为ASCII码符号， 直接用inttostr(Byte)实现转换为String类型（字符串）。
你要的应该是字符串（显示）吧？ Byte是一字节的无符号整型，即0..255，用Char(Byte)实现转换为ASCII码符号， 直接用inttostr(Byte)实现转换为String类型（字符串）。
H harryduan Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-31 #6 下面是一个将byte数据转换为string proceduer BytesToString(Data: array of byte); var s: string; Len: integer; begin Len:= Length(Data); SetLength(s,Len); move(Data[Low(Data)],s[1],Len); end;
下面是一个将byte数据转换为string proceduer BytesToString(Data: array of byte); var s: string; Len: integer; begin Len:= Length(Data); SetLength(s,Len); move(Data[Low(Data)],s[1],Len); end;
W wzwcn Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-31 #7 var a:string; b:byte; a:=inttostr(b);
A app2001 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-31 #8 procedure TForm1.Button1Click(Sender: TObject); var byteTmp: Byte; strTmp: string; begin byteTmp := $01; strTmp := Format('%.2d', [byteTmp]); showmessage(strTmp); end;
procedure TForm1.Button1Click(Sender: TObject); var byteTmp: Byte; strTmp: string; begin byteTmp := $01; strTmp := Format('%.2d', [byteTmp]); showmessage(strTmp); end;
C chenybin Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-31 #9 终于找到这个帖子了，来晚没 function TIDTrans.BytesToString(bytearray: array of byte len : Integer ): String; var a: Integer; begin result := ''; for a := 0 to len-1 do begin result := result + char( bytearray[a] ); end; end;
终于找到这个帖子了，来晚没 function TIDTrans.BytesToString(bytearray: array of byte len : Integer ): String; var a: Integer; begin result := ''; for a := 0 to len-1 do begin result := result + char( bytearray[a] ); end; end;
