|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
plusv (plusv) |
★☆☆☆☆ |
-
|
普通会员 |
|
2021/7/20 22:02:00 |
标题: |
CMD Console 显示文字不正确 |
浏览:1025 |
|
加入我的收藏 |
楼主: |
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.
此帖子包含附件:
大小:34.4K |
----------------------------------------------
- |
作者: |
|
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, 就无法使用.
----------------------------------------------
-
|
作者: |
|
2021/7/27 23:56:43 |
3楼: |
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
该账号是个傻逼
|
|