5,392
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
wText: WideString;
begin
wText := #52628#44032#54616#45208#50836;
TextOutW(Canvas.Handle, 10, 10, PWChar(wText), lstrlenW(PWChar(wText)));
end;
procedure TForm1.Button1Click(Sender: TObject);
const
wText: array[0..5] of WideChar = (#52628, #44032, #54616, #45208, #50836, #0);
begin
TextOutW(Canvas.Handle, 10, 10, wText, lstrlenW(wText));
end;