在http://expert.csdn.net/Expert/topic/2415/2415655.xml?temp=.3184931中,
你的方法对于中文好像不起作用,是不是编码上有什么奥妙。
‘人’的unicode用delphi转出来是4EBA。你是怎么转成CBC8的?(用CBC8能推出人)
你的方法对于中文好像不起作用,是不是编码上有什么奥妙。
‘人’的unicode用delphi转出来是4EBA。你是怎么转成CBC8的?(用CBC8能推出人)
解决方案 »
- quickReport 问题,我打开delphi7程序时报quickreport版本不对.有什么办法看到版本信息?谢谢
- 怎么让我的进程关不掉啊(急)
- 怎样实现DBGrid中单行数据的各列以不同颜色显示????求教[[高手]]指导!或者有无类似控件可实现?
- 大家好。我是网络新手,请指教,在线等
- 寻求最简单的做法!!!!
- byte数组的问题
- QuickRep中能否象预览一样放大缩小打印
- 如何将不同的SCROLLBOX中的控件进行相同的taborder排序?
- 请教:如何截取windows消息?比如说,当有人向我的共享目录里拷文件时,后台程序可以报警?
- 如何实现这样的运算.
- TQUERY。。。让我郁闷了。。求救
- 在win2000字体显示正常,但在win98显示不正常,反之亦然,如何解决,难道只能在98和win200分别设置字体编译吗
var i,len:Integer; cur:Integer; t:String;
begin
Result:='';
len:=Length(s);
i:=1;
while i<=len do
begin cur:=ord(s[i]);
FmtStr(t,'%4.4X',[cur]);
Result:=Result+t;
inc(i);
end;
end;可以推出4EBA
function Encode2(var s: String):String;
var i,len:Integer; cur:Integer; t:String;
begin
Result:='';
len:=Length(s);
i:=1;
while i<=len do
begin cur:=ord(s[i]);
FmtStr(t,'%4.4X',[cur]);
showmessage(inttohex(cur, 2));
Result:=Result+t;
inc(i);
end;
end;
CBC8是string的“人”的码。 length(人)=2怎么解决widestring的转换呢?
晕啊
TUnichar = packed record
case Integer of
0: (s: array[0..3] of widechar);
1: (x: Integer);
end;function GetUnichar(Value: Integer): string;
var
c: TUnichar;
begin
c.x := Value;
Result := c.s;
end;
TUnichar = packed record
case Integer of
0: (s: array[0..3] of char);
1: (x: Integer);
end;
function GetUnichar(Value: Integer): string;
var
c: TUnichar;
begin
c.x := Value;
Result := c.s;
end;function GetUnicharValue(Value: string): Integer;
var
c: TUnichar;
begin
Move(Value[1], c.s, 2);
c.s[2] := #0;
Result := c.x;
end;
TUnichar = packed record
case Integer of
0: (s: array[0..3] of widechar);
1: (x: Integer);
end;
function GetUnichar(Value: Integer): widestring;
var
c: TUnichar;
begin
c.x := Value;
Result := c.s;
end;function GetUnicharValue(Value: widestring): Integer;
var
c: TUnichar;
begin
Move(Value[1], c.s, 2 * sizeof(widechar));
c.s[2] := #0;
Result := c.x;
end;
case integer of
0:(s:widechar);
1:(x:integer);
就行了能讲讲这个结构是怎么理解的吗?