//string[250]也是string类型
//它的下标也是从1开始不是0
//参考如下代码
var
hexbuf: array [0..250] of Char;
s: string;
begin
hexbuf[0]:='0';
hexbuf[1]:='1';
hexbuf[2]:='2';
hexbuf[3]:='3';
hexbuf[4]:=#0; //结束标记
s := '0x' + hexbuf + ',';
ShowMessage(s);
end;
//它的下标也是从1开始不是0
//参考如下代码
var
hexbuf: array [0..250] of Char;
s: string;
begin
hexbuf[0]:='0';
hexbuf[1]:='1';
hexbuf[2]:='2';
hexbuf[3]:='3';
hexbuf[4]:=#0; //结束标记
s := '0x' + hexbuf + ',';
ShowMessage(s);
end;
解决方案 »
- suiPack 中的 suiManiMenu,在代码中设置某个菜单项隐藏问题
- 用ODAC连接oracle,dbgrid显示数据,如何删除DBGRid中选中的记录?在线等。。。。。
- 又是关于QREPORT的问题
- IndyFTPServer问题
- 生个儿子你还让他作程序员吗?
- 如何控制WebBrowser控件的右键菜单的选项???
- 如何得到当前产生事件组件的指针?(不用找焦点的方法)
- 大家好,我买了张delphi7.0的盘,找不到序列号,那位大哥大姐帮个忙,给出那两个序列号
- delphi 6 企业版 何处有?
- 怎样在Excel中添加一个工作簿??谢谢
- 数据流传输的TNMStrm和TNMStrmServ组件和TNMUDP控件有什么不同啊?
- *****有谁用过Help pad的,能否回答我一个问题,定有酬谢!
i:integer;
begin
for i:=0 to length(hexbuf)-1 do
begin
s:=s+bexbuf[i];
end;
end;
S:STRING;
i:integer;
begin
for i:=1 to 255 do
hexbuf[i]:=chr(0);hexbuf[1]:='0';
hexbuf[2]:='1';
hexbuf[3]:='2';
hexbuf[4]:='3';s:=trim(hexbuf);
s:='0x'+s+',';
ShowMessage(s);end;
hexbuf:string[255];
S:STRING;
i:integer;
begin
for i:=1 to 255 do//这个部分可要可不要不过显示出来的可不相同
hexbuf[i]:=chr(0);hexbuf[0]:='s';//任何字符'0'..'9',
// 'a'..'z','A'..'Z',但是#0
//不能在这里;
hexbuf[1]:='1';
hexbuf[2]:='2';
hexbuf[3]:='3';
hexbuf[4]:='4';s:=trim(hexbuf);
s:='0x'+s+',';
ShowMessage(s);