一个弱弱的问题，！一定给分，着急啊！来者有分！

Question

我这边有个string类型的变量rprint1,里面有400个字节的char，我现在想将其中的每个char都单独取出然后再赋值给一个array[0..399] of char,谢谢了，我是delphi新手！

Answer 1

for i:=0 to length(rprint1)-1 do
begin
  array[0]:=copy(rprint1,length(rprint1)-i,1)
end;

Answer 2

for i := 0 to 399 do //确定是400，否则参考我楼上
begin
  array[i] := rprint1[i];
end;

Answer 3

for i:=1 to length(trim(rprint1)) do
begin
  array[0]:=copy(trim(rprint1),i,1)
end;

Answer 4

for i:=1 to length(trim(rprint1)) do
begin
  array[i-1]:=copy(trim(rprint1),i,1)
end;

Answer 5

楼上几个都大同小异,难道不能直接赋吗??
var
array1:array[0..399] of char;
begin
 array1 := 'this is a test string';
string好像可以直接赋给array of char的类型啊,不过我试了
如果
var
array1:array[0..399] of char;
s:string;
begin
 s := 'this is a test string';
 array := s;
就会出错,大家能不能给我个解释啊;)

Answer 6

array[0]:=copy(rprint1,length(rprint1)-i,1)
这样 copy函数的返回值还是string类型的。我现在需要字符型。
咋办

Answer 7

copy函数的返回值还是string类型的。我现在需要字符型。???
既然都给你赋到char类型的array了,取array[i]就是一个char啊,什么意思啊

Answer 8

很简单啊!
var
  C: array[0..399] of char;
  i: integer;
begin
  for i:=0 to 399 do
    C[i] := rprint1[i];  // 可能直接使用啊
end;
还有,rprint1本来就可以使用它的字符数组,为什么还有再弄个数组出来?

Answer 9

越说越糊涂了，不知道搂住到底想干什么，delpimo的方法就行了