将字符串中的字符依次写入数组_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 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/05/26/2518900.html