字符串的处理问题！

Question

?很容易吧
var
   str1,str2:string;
   i,len:integer;
   crc:byte;
begin
   //初始化变量
   len:=length(str1);
   crc:=ord(str1[1]);
  for i:=2 to len do 
       crc:=ord(str1[i]) xor crc;
  str2:=str1+char(crc);
end;

Answer 1

var 
 temp:string;
 s1,s2:string;
 i:integer;
begin
  setlngth(temp,length(s1);
  for i:=0 to length(s1)-1 do 
begin
 //加上你的代码，得到s2:
　  
  end;
　S2:=S1+s2;
不知道你是否是这个意思？