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));

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