#后边五位数代表一个文字。。请问算法是什么。

wk1994 2011-05-20 01:56:49

Delphi写的程序。。。求算法。。

...全文

194 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

Frank.WU 2011-05-21

打赏
举报

关键字？简单，但绝对不是什么算法，就算不用 delphi ，也知道这个是编码，而不是算法。

关键字：
delphi 窗体中文编码

山东蓝鸟贵薪 2011-05-21

打赏
举报

Unicode应该是关键的问题吧

wk1994 2011-05-20

打赏
举报

我说一下，我不是学Delphi的。。

修改某个程序的时候偶然看到了。。

只知道#+5位数字应该是代表一个中文字符。

但是具体的方法不知道。。

搜索的确搜索了，找不到。。。

我不知道那是什么。所以请你站在我这想一下，用什么关键字去搜索。

后来问朋友，有了。保存为U* .html。打开看到了。

[Quote=引用 6 楼 sailxia 的回复:]
Unicode 嘛。。。以上的各位啊

你们在 Delphi 中，在窗体的右键 ---> view as text ，那么所有控件中文属性都是 unicode 形式显示。

现在提问的也是深奥，系统托盘不说托盘，说屏幕右下角。任务栏不说任务栏，说屏幕下方按钮。什么稀奇古怪的说法都有。上次竟然有筒子做登录窗体，他用到的方法竟然是想替换 Application 的主窗体。他还说如果不这样做无法……
[/Quote]

水向东流时光怎么偷 2011-05-20

打赏
举报

[Quote=引用 8 楼 ffwin 的回复:]
function TForm1.UnicodeToDel(const aWideStr: WideString): string;
var
i: Integer;
sTemp: string;
begin
for i := 1 to length(aWideStr) do
begin
sTemp := Format('#%d', [Word(aWideStr[i]……
[/Quote]

ffwin 2011-05-20

打赏
举报

function TForm1.UnicodeToDel(const aWideStr: WideString): string;
var
i: Integer;
sTemp: string;
begin
for i := 1 to length(aWideStr) do
begin
sTemp := Format('#%d', [Word(aWideStr[i])]);

Result := Result + sTemp;
end;
end;

function TForm1.UTF8_Str_Unicode(const asUnicodeHex: string): WideString;
var
sTemp: string;
Dest: PwideChar;
swc: PChar;
begin
GetMem(swc, 1024);
swc := PChar(asUnicodeHex);
GetMem(Dest, 1024);
try
Utf8toUnicode(Dest, swc, 1024);
sTemp := WideCharToString(Dest);
finally

end;
Result := Result + sTemp;
FreeMem(Dest);
end;

UnicodeToDel(UTF8_Str_Unicode('中国'));

返回
#20013#22269

ffwin 2011-05-20

打赏
举报

unicode
#20013#22269----中国

Frank.WU 2011-05-20

打赏
举报

Unicode 嘛。。。以上的各位啊

你们在 Delphi 中，在窗体的右键 ---> view as text ，那么所有控件中文属性都是 unicode 形式显示。

现在提问的也是深奥，系统托盘不说托盘，说屏幕右下角。任务栏不说任务栏，说屏幕下方按钮。什么稀奇古怪的说法都有。上次竟然有筒子做登录窗体，他用到的方法竟然是想替换 Application 的主窗体。他还说如果不这样做无法做登录窗口。。。真是什么人都有。

好了，楼主的问题根本不用回答，搜索一下答案大把，只是楼主太懒。

不是说能搜索出来的问题都不算问题嘛