请教如何将Pchar变量转换成string变量(50分)

lamcy · 2004-02-04

请教如何将Pchar变量转换成string变量

yostgxf · 2004-02-04

var
i:integer;
A

char;
B:String;
begin
for i:=0 to Length(A)-1 do
B[i+1]:=A;
end;

云孤天 · 2004-02-04

var
a

char;
b:string;
begin
a:= 'a';
b:= string(a);
end;

xianguo · 2004-02-04

s := strpas(p);

antic_ant · 2004-02-04

结吧

blyb · 2004-02-04

xianguo说的对，用strpas()函数没错。

wjh_wy · 2004-02-04

真接把PChar类型的变量赋给String类型的变量就可以。
请看StrPas函数的原型：
function StrPas(const Str: PChar): string;
begin
Result := Str;
end;

Madaly · 2004-02-04

给分吧,上面的都说了.

liujzi · 2004-02-04

来晚了，就用s := strpas(p)

amli · 2004-02-04

s := p;

牛头12236 · 2004-02-04

太可惜了……

var str: string;
直接用 PChar(str) 强制转换一下嘛

ChaseSun · 2004-02-04

str := string(szStr);

lamcy · 2004-02-08

谢谢各位大侠指点！