怎样把一个string赋值给一个array of pchar
解决方案 »
- 这样声明抽象类有什么特别意义?
- adoquery执行sql语句却在adotable里显示的问题
- D2010用TPerlRegEx组件的问题
- 使用IDHTTP后弹出Connection Closed Grancefully.
- 着急中!我现在想打开一个excel文件,然后取出excel第一行第一列数据。
- DBGrid 的 PickList 问题!我靠,太难了!我的信誉分是109,如果答案可行,我必然给分!
- 从BDE移植到ADO,使用Parameter出现异常,求救~~~
- 关于MYSQL数据库的
- 如何做出根据当天的日期,将以下报表并打印机出来?
- 怎样在注册表中搜索某一主键值(或者列出某一主键值下所以子键值的内容)
- 我想做视频检测,提一点想法,如何能做呢!
- Image上放了一个PaintBox,原来Image的事件(如Click)不起作用了?
str : string;
pstr : PChar ;
begin
str :='this is a string';
pstr := PChar(str);
end;
上面是给一个pchar变量赋值。数组是一样的。
String对应PChar
不过你要用数组的话不妨这样
var
s:String;
begin
s:='Test';
...
end;
则s[1]='T';类型是Char
s[2]='e'
...
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;
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;
Arr:array[0..255] of Char;
Str:String;StrPCopy(Arr,Str);