字符串可以用什么方法赋值给数组呢？

Question

字符串，比如STRING，用什么方法去赋值给一个数组，要注意些什么问题呢？

Answer 1

var
ss:array[1..10] of string;
s:string;ss[1]:=s;

Answer 2

你想付给数组中的那个元素就直接写：数组[i]:=string 即可
如果你想把整个字符串的每个字符付给一个数组，可以使用循环付值：
 for i:=0 to length(string) do 
   数组[i]:=string[i]; 或 for i:=0 to length(string) do 
       数组[i]:=copy(string,i,1)

Answer 3

搂主的意思应该是把字符串作为数组使用，直接用好了。注意数组的长度问题。
var
ss:array[1..10] of string;
s:string;ss:=s;

Answer 4

procedure TForm1.Button8Click(Sender: TObject);
var
  Str: string;
  Arr: array [0..20] of string;
begin
  Str := Self.Edit24.Text;
  Arr := Str;
end;
我的代码是这样写的，编译错误提示是Incompatible types:'Array' and 'String'

Answer 5

procedure TForm1.Button8Click(Sender: TObject);
var
  Str: string;
  Arr: array [0..20] of char;
begin
  Str := Self.Edit24.Text;
  lstrcpy(Arr,pchar(sys_flag));
end;这个保对,结贴给分!   ^_^  ^_^   ^_^  ^_^  ^_^  ^_^  ^_^!

Answer 6

procedure TForm1.Button8Click(Sender: TObject);
var
  Str: string;
  Arr: array [0..20] of char;
begin
  Str := Self.Edit24.Text;
  lstrcpy(Arr,pchar(Str));
end;这个保对,结贴给分!   ^_^  ^_^   ^_^  ^_^  ^_^  ^_^  ^_^!

Answer 7

先谢过这位仁兄--ld9702(ld) ，可是这个函数在帮助里怎么找不到呢？能讲讲吗？

Answer 8

推荐你用这个函数 strPCopy( Dest :Pchar;const Source :String)
数组基本上可以通用.
如:
 strPCopy( arr, Str );