我补充说明用法:
uses SysUtils;
var
Arr: array[0..9] of Char;
Str: String;
begin
S := '1234567';
StrPCopy(Arr, Str);
Canvas.TextOut(10, 10, string(Arr));
end;
uses SysUtils;
var
Arr: array[0..9] of Char;
Str: String;
begin
S := '1234567';
StrPCopy(Arr, Str);
Canvas.TextOut(10, 10, string(Arr));
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货