字符串

Question

Var
   S:  String;
begin
   S:= 'abcde';
   S[2]:='2';
   Showmessage(S);
end;

Answer 1

function TForm1.loginsms():boolean;
var sendbyte,tmpbyte:string;
   sendlen,tmplen,pos:integer;
begin
setlength(sendbyte,100);
  sendbyte[7]:= '1';
  sendbyte[15]:='1';
  sendlen:=16;
  tmpbyte:=USER;
  tmplen:=length(tmpbyte);
  for pos:=0 to tmplen-1 do
  begin
    sendbyte[sendlen]:=tmpbyte[pos];
    sendlen:=sendlen+1;
  end;
  sendlen:=sendlen+1;
  tmpbyte:=PASS;
  tmplen:=length(tmpbyte);
  for pos:=0 to tmplen-1 do
  begin
    sendbyte[sendlen]:=tmpbyte[pos];
    sendlen:=sendlen+1;
  end;
  sendlen:=sendlen+2;
  sendbyte[sendlen]:=chr(1);
  sendlen:=sendlen+14;
  sendbyte[3]:=chr(sendlen);
  clientsocket1.socket.sendtext(sendbyte);
  showmessage(sendbyte);
  if (not readornot) then
  result:=false
 else
 result:=true;
end;可是以上这段函数为什么show(sendbyte)显示不出来？

Answer 2

//加上下面的给sendbyte赋值，
  //字符串为空时，不能替换，就好像硬盘没格式化，不能使用一样
  for i:=0 to 99 do begin
    sendbyte[i]:='0';
  end;