string,array[]of char,pchar 这三个类型的字符串怎么互相转换？

[hnwzs]

string,array[]of char,pchar 这三个类型的字符串怎么互相转换？

[huyongxiao]

lstrcpy(A:string;B:char);

A：string
B:array[] of
C:pchar

B[0]:=C;

I:=0..N

B[I]:=A[I+1]

[cjf1009]

var
s,ss: array[0..100] of char;
s1,s2 : string;

procedure TForm1.Button1Click(Sender: TObject);
begin
s := 'aa杨中';
s1 := s;
strcopy(ss,pchar(s1));
showmessage(ss);
test(ss);
end;

procedure Tform1.test(str : widestring); //string，widestring形参实参
begin
showmessage(str);
showmessage(inttostr(length(str)));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
s1 := 'aa杨忠';
//s := pchar(s1); 错误
s2 := pchar(s1);
end;

[caiso]

顶一下^_^

[hnwzs]

string转到array[]of char怎么转呀

[小呆之家]

var
s:string;
c:array of char;
p:pchar;
i:integer;

s:='asdfasdfasdfasdfasdfasdf';
i:length(s);
try
setlength(c,i);
for i:=1 to length(s) do
c[i-1]:=s[i];

p:=@c[0];
showmessage(s);
showmessage(p);
inc(p);
showmessage(p);

finally

c:=nil;

end;