自己对DELPHI学习的一点体会
源代码在线查看： 如何把中文转换成unicode字符 (2000年8月24日).txt
如何把中文转换成Unicode字符 (2000年8月24日)
本站更新 分类: 作者:大富翁论坛 推荐: 阅读次数:609
(http://www.codesky.net)
--------------------------------------------------------------------------------
来自：HJ 时间：00-8-7 12:56:02 ID:305159
呵呵，Delphi转换Accis编码的函数???
CHR()是相反的，唉，很久没用Delphi了，大家别见笑......
这个问题20大元该够了吧？？？
--------------------------------------------------------------------------------
来自：ArJianzeng 时间：00-8-7 14:37:25 ID:305239
@@
--------------------------------------------------------------------------------
来自：康夫 时间：00-8-7 15:29:49 ID:305271
ORD()
--------------------------------------------------------------------------------
来自：beta 时间：00-8-7 18:24:36 ID:305401
ord(); byte() 好象都可以
--------------------------------------------------------------------------------
来自：HJ 时间：00-8-13 14:12:14 ID:307263
beta:
康夫:
等我试一下，如果行，即刻ADD...
--------------------------------------------------------------------------------
来自：elan 时间：00-8-13 14:15:34 ID:307266
好像题目问的是 unicode ，不是ascii
--------------------------------------------------------------------------------
来自：HJ 时间：00-8-13 14:38:28 ID:307282
>来自：elan 时间：00-8-13 14:15:34 ID:307266
>好像题目问的是 unicode ，不是ascii
其实就是“&#” +ascii+"；"
在写多数的WAP网页是用的........
--------------------------------------------------------------------------------
来自：elan 时间：00-8-13 15:37:19 ID:307315
O , I see ,thanks
--------------------------------------------------------------------------------
来自：lightscent 时间：00-8-16 13:24:53 ID:310347
这个函数怎么样
StringToWideChar()
--------------------------------------------------------------------------------
来自：OopsWare 时间：00-8-17 7:51:34 ID:311039
来晚了！
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Edit1Change(Sender: TObject);
var s: string;
i, j, k: integer;
a: array[1..1000] of char;
begin
s:='';
for i:=1 to Length(Edit1.Text) do begin
j:=Integer(Edit1.Text[i]);
s:=s+Copy(Format('%X ',[j+$100]) ,2,3);
end;
Edit2.Text:=s;
StringToWideChar(Edit1.Text, @(a[1]), 500);
s:=''; i:=1;
while ((a[i]#0) or (a[i+1]#0)) do begin
j:=Integer(a[i]); k:=Integer(a[i+1]);
s:=s+Copy(Format('%X ',[j*$100+k+$10000]) ,2,5);
i:=i+2;
end;
Edit3.Text:=s;
end;
end.
--------------------------------------------------------------------------------
来自：Atomic 时间：00-8-17 9:56:22 ID:311194
...
--------------------------------------------------------------------------------
