怎样把一个string赋值给一个array of pchar

Question

怎样把一个string赋值给一个array of pchar

Answer 1

var
  str : string;
  pstr : PChar ;
begin
  str :='this is a  string';
  pstr := PChar(str);
end;
上面是给一个pchar变量赋值。数组是一样的。

Answer 2

Strings才能对应Array of PChar
String对应PChar
不过你要用数组的话不妨这样
var 
s:String;
begin
  s:='Test';
  ...
end;
则s[1]='T';类型是Char
  s[2]='e'
  ...

Answer 3

var
 cc:pchar;
 incha:array of char;
 bb:string;
 i,len:integer;
    len:=length(bb);
    for i:=1 to len do
     begin
     cc:=pchar(copy(bb,i,1));
     incha[i]:=cc^;
     end;

Answer 4

var long,i:integer;
    str:=string;
    pp:array of pchar;
long:=length(str);
setlength(pp,long);
for i:=0 to long-1 do
begin
  pp[i]:=str[i];
end;

Answer 5

ft...逐个字符传递?很简单,一句代码var
  Arr:array[0..255] of Char;
  Str:String;StrPCopy(Arr,Str);