procedure TForm1.Button1Click(Sender: TObject);
var
tmpStr:String;
sss:Array of Byte;
begin
setLength(sss,10);
//模拟输入字节数组数据
sss[0]:=StrToInt(char('a'));
sss[1]:=StrToInt(char('b'));
sss[2]:=StrToInt(char('c'));
sss[3]:=StrToInt(char('d'));
sss[4]:=StrToInt(char('e'));
sss[5]:=StrToInt(char('f'));
sss[6]:=StrToInt(char('g'));
sss[7]:=StrToInt(char('1'));
sss[8]:=StrToInt(char('2'));
sss[9]:=StrToInt(char('3'));
tmpStr:=IntToStr(sss[0]); //怎么转换成字符串并显示???
ShowMessage(tmpStr);
end;
var
tmpStr:String;
sss:Array of Byte;
begin
setLength(sss,10);
//模拟输入字节数组数据
sss[0]:=StrToInt(char('a'));
sss[1]:=StrToInt(char('b'));
sss[2]:=StrToInt(char('c'));
sss[3]:=StrToInt(char('d'));
sss[4]:=StrToInt(char('e'));
sss[5]:=StrToInt(char('f'));
sss[6]:=StrToInt(char('g'));
sss[7]:=StrToInt(char('1'));
sss[8]:=StrToInt(char('2'));
sss[9]:=StrToInt(char('3'));
tmpStr:=IntToStr(sss[0]); //怎么转换成字符串并显示???
ShowMessage(tmpStr);
end;
解决方案 »
- SQL语句出现了'数据提供程序或其他服务返回e_fail状态 '怎么回事'?
- 请问——编译组件出现错误:[Fatal Error] Could not create output file 'g:\delphi\Projects\Bpl\f1bookdesigncom.bpl'
- 我在网上查到的一段实现发电子邮件的代码,请大家帮我解释一下里面的用法.
- 急!窗体中控件居中和大小改变的问题
- ★★★--[ UDP协议问题 ]--★★★
- 服务器名称是什么意思?
- 请问我使用OLE WORD时,化进去的表格为什么是灰色的?因为这样的话表格不能打印出来,有办法设置表格的线宽吗?
- 新手求助
- ADO 与 ODBC?
- 如何取得CPU的序列号?
- 我晕了,MRP算法问题
- DBGRID查找定位
move(sss[0],tmpStr[1],Length(sss));
var
tmpStr:String;
sss:Array of Byte;
begin
setLength(sss,10);
//模拟输入字节数组数据
sss[0]:=ord('a');
sss[1]:=ord('b');
sss[2]:=ord('c');
sss[3]:=ord('d');
sss[4]:=ord('e');
sss[5]:=ord('f');
sss[6]:=ord('g');
sss[7]:=ord('1');
sss[8]:=ord('2');
sss[9]:=ord('3');
tmpStr:=char(sss[0]);
ShowMessage(tmpStr);
end;