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