DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: tms2021
今日帖子: 6
在线用户: 7
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 plusv (plusv) ▲▲▲▲▲ -
注册会员
2021/7/20 22:02:00
标题:
CMD Console 显示文字不正确 浏览:250
加入我的收藏
楼主: Delphi 2010
==========

function WideToAnsi(const WS: WideString): AnsiString;
var len: integer;
    s: AnsiString;
begin
Result:='';
if (Length(WS) = 0) then
  exit;
len:=WideCharToMultiByte(CP_ACP, 0, PWideChar(WS), -1, nil, 0, nil, nil);
SetLength(s, len);
WideCharToMultiByte(CP_ACP, 0, PWideChar(WS), -1, PAnsiChar(s), len, nil, nil);
Result:=s;
end;

begin
  Readln(S);
  Writeln(WideToAnsi('這是一個測試 这是一个测试'));
end.
此帖子包含附件:
PNG 图像
大小:34.4K
----------------------------------------------
-
作者:
男 jackalan (nVicen) ★☆☆☆☆ -
盒子活跃会员
2021/7/21 9:30:01
1楼: https://github.com/exilon/QuickLib/blob/master/Quick.Console.pas

用QuickLib下面的Quick.Console。
----------------------------------------------
简单做人,认真做事。
作者:
男 plusv (plusv) ▲▲▲▲▲ -
注册会员
2021/7/21 13:41:21
2楼: To:jackalan

在 Delphi 2010 无法编译.
\QuickLib-master\samples\delphi\QuickConsole\ConsoleOut

看了一下,
版本需求 Delphi XE8 - Delphi 10.4 Sydney supported,
就无法使用.
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行31.25毫秒 RSS