帮我看看这段自编函数吧

Question

在setlength下面加一句
sendtype:=stringofchar(' ',100);这样拼串，也够累的，你完全可以直接字符串相加

Answer 1

setlength不是给string用的,是给array of char用的

Answer 2

showmessage显示不出来的原因是因为你的结果字符串中包含有字符#0，
可以按照jianling0538(zjl)的方法，在setlength下面加一句
sendtype:=stringofchar(' ',100);
另外，对于string类型的字符串，位置0是存放长度的，字符串是从位置1开始存放的，所以下面的代码是错误的
 for pos:=0 to tmplen-1 do
  begin
    sendbyte[sendlen]:=tmpbyte[pos];
    sendlen:=sendlen+1;
  end;
...
 for pos:=0 to tmplen-1 do
  begin
    sendbyte[sendlen]:=tmpbyte[pos];
    sendlen:=sendlen+1;
  end;
应该修改为
   for  pos:=1 to tmplen do