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

[letgolxh]

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

[大大怪老张]

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

[li_zhifu]

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

[windylzp]

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;

[cjfzy]

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;

[ehom]

ft...逐个字符传递?

很简单,一句代码

var
Arr:array[0..255] of Char;
Str:String;

StrPCopy(Arr,Str);

[wang11912]

fillchar