功能说明:将字符串中的字符依次写入数组
procedureTForm1.Button1Click(Sender: TObject);
var
str:string;
a:array[0..79]ofchar;
begin
str:='字符串转换测试';
strPcopy(a,str);
canvas.TextOut(10,10,string(a));
end;
功能说明:将字符串中的字符依次写入数组
procedureTForm1.Button1Click(Sender: TObject);
var
str:string;
a:array[0..79]ofchar;
begin
str:='字符串转换测试';
strPcopy(a,str);
canvas.TextOut(10,10,string(a));
end;