AnsiString類型定義的時候可以直接指定字碼頁，比如950繁體字，936日文

標籤：

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);//清Null 字元串end;{$ELSE}asm        { ->    EAX     pointer to dest }        {       EDX     source          }        TEST    EDX,EDX        JE      @@sourceDone

 

AnsiString類型定義的時候可以直接指定字碼頁，比如950繁體字，936日文