网络收藏

如何将一个字符串中的字符依次取出来存到一个数组里

推荐阅读

s[1]  
  s为你的字符串，【1】为第一个字符，依次类推

var  
        cs:   array   of   char;  
        s:   string;  
  begin  
        s   :=   abcd;  
        setlength(cs,   length(s));  
        move(s[1],   cs[0],   length(s));  
        showmessage(string(cs));  
  end;  
   
  ————————————————————————————————————  
  宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。  
  ————————————————————————————————————  
 

up

procedure   savetoarray(str:string);  
  var  
  slength,i:integer;  
  begin  
      slength:=length(str);  
      setlength(arrayfromstr,slength);  
      for   i:=0   to   slength-1   do  
            arrayfromstr[i]:=str[i];  
  end;

不知道你是否需要考虑到字符串中可能存在汉字的问题,也许画蛇添足，希望可以帮到你：  
  procedure   savetoarray(str:string);  
  var  
      i,j:integer;  
      a:array[1..100]   of   word;  
  begin  
      i:=1;  
      j:=1;    
      while   (i<=   length(str))   do  
      begin  
          if   ord(str[i])>128   then     //如果是汉字  
          begin  
              a[j]:=ord(str[i])*256+ord[i+1];    
              i:=i+2;  
              j:=j+1;  
          end  
          else             //若是普通字符  
          begin  
              a[j]:=ord(str[i]);  
              i:=i+1;  
              j:=j+1;  
          end;  
  end;  
  此程序运行通过