var  
  buf: array[0..100] of byte;  
  str: string[32];//仅仅开辟了一个32个空间的内存，由于第1位没有用setlength初始化，导致长度不定  
  i  : Integer;  
begin  
 //如果在此处就对str进行赋值，str[0]位就有计数了，如果在使用之前没有对其进行使用，用SetLength进行赋值  
  for i := 50 to 81 do buf[i] := ord('A') + i -50;//测试数据  
  SetLength(str, 32);//设置str[0]=32;  
  Move(buf[50], str[1], 32);//内存复制  
  ShowMessage (str);  
end;  

var  
  buf: array[0..100] of byte;  
  str: string;  
  i  : Integer;  
begin  
  for i := 50 to 81 do buf[i] := ord('A') + i -50;  
  SetLength(str, 32);  
  Move(buf[50], str[1], 32);//注意，这里是从str[1]开始复制的  
  ShowMessage (str);  
end; 

var  
  buf: array[0..100] of byte;  
  str: string;  
  
begin  
  str:='abcdefg';  
  Move( str[1],buf[0], 32);//注意，这里是从str[1]开始复制的  
  ShowMessageFmt('$%.2d, $%.2d, $%.2d, $%.2d', [buf[3], buf[2], buf[1], buf[0]]);  
  
end;