码迷,mamicode.com
首页 > 其他好文 > 详细

AnsiString类型定义的时候可以直接指定代码页,比如950繁体字,936日文

时间:2015-04-13 14:16:56      阅读:172      评论:0      收藏:0      [点我收藏+]

标签:

procedure TForm3.FormCreate(Sender: TObject);
type
  AnsiStringForPage = type AnsiString(950);//代码页
var
  AnsiStr: AnsiStringForPage;
  i: Integer;

  function GetAnsiCharCode(Value: AnsiChar): string;
  begin
    Result := IntToHex(ord(Value), 2);
  end;

begin
  AnsiStr := ‘abcABC中国人‘;//ansi兼容abcAbc,所以这些字母对应的值与代码页无关,而中国人,在950中人存在,国不存,所以长度为11,936时长度12,932也是长度11
  for i := 0 to Length(AnsiStr) do
    Memo1.Lines.Add(IntToHex(ord(AnsiStr[i]), 2));

 

以上内容只做学习标志,请勿查看

 

字符串赋值的时候会调用以下代码System.pas中

procedure _LStrLAsg(var Dest: _AnsiStr; const Source: _AnsiStr);//字符串复制
{$IFDEF PUREPASCAL}
var
  P: Pointer;
begin
  P := Pointer(Source);
  if P <> nil then
    _LStrAddRef(P);
  P := Pointer(Dest);
  Pointer(Dest) := Pointer(Source);
  _LStrClr(P);//清空字符串
end;
{$ELSE}
asm
        { ->    EAX     pointer to dest }
        {       EDX     source          }

        TEST    EDX,EDX
        JE      @@sourceDone

 

AnsiString类型定义的时候可以直接指定代码页,比如950繁体字,936日文

标签:

原文地址:http://www.cnblogs.com/ZhouXiHong/p/4422021.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!