将字符串中的字符依次写入数组_TextOut

功能说明：将字符串中的字符依次写入数组 

procedureTForm1.Button1Click(Sender: TObject);
var
  str: string;
  a: array[ 0 .. 79]ofchar;
begin
   str := '字符串转换测试';
   strPcopy(a,str);
   canvas.TextOut( 10, 10, string(a));
end;

通过 Wiz 发布