UC知道求教delphi编程高手关于自动分行问题
来源：百度知道 编辑：UC知道 时间：2024/05/17 22:14:31
我接收了一段16进制的数据,想让软件识别每16对自动分行显示,这个有谁知道该怎么写么? 接收的数据格式很规则如:05 5E FF 00 00 B4 00 00 00 39 01 00 FF 0F 24 01 05 5E FF 00 00 B4 00 00 00 39 01 00 FF 0F 24 01 .然后要让其自动识别分组后在excel里保存后自动分行显示为:
05 5E FF 00 00 B4 00 00 00 39 01 00 FF 0F 24 01
05 5E FF 00 00 B4 00 00 00 39 01 00 FF 0F 24 01
回答好的虽然我分不多，但我会压上全部分的.最好能写好代码让我这个才鸟参考一下.
05 5E FF 00 00 B4 00 00 00 39 01 00 FF 0F 24 01
05 5E FF 00 00 B4 00 00 00 39 01 00 FF 0F 24 01
回答好的虽然我分不多，但我会压上全部分的.最好能写好代码让我这个才鸟参考一下.
你这个实际上不是字符处理
1.先将你接收的内容转为字符格式
2.在输出时,每十六个组字符一起输出就OK了
我简单写一点:
比如输出到richEdit
//tempstr把你的内容存到这里去
procedure outputmystr(tempstr:string);
var
i:integer;
begin
i:=1;
while i<length(tempstr) do
richedit.text:=richedit.text+copy(tempstr,i,16)+#13+#10;
i:=i+16;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
xsl:variant;
sheet:variant;
begin
xsl:=CreateOleObject('Excel.Application');
xsl.Visible:=true;
.....
DELPHI操纵EXCEL的例子很多了，甚至Microsoft都给出了，比如这里：
http://support.microsoft.com/kb/231614/zh-cn