Delphi XE 的一些新函数

MultiByteToWideChar

 procedure TWideCharStrList.AddString(const S: string);  var    Size, D: Integer;  begin    Size := SizeOf(S);    D := (Size + 1) * SizeOf(WideChar);    FList[FUsed] := AllocMem(D);    MultiByteToWideChar(0, 0, PChar(S), Size, FList[FUsed], D);   Inc(FUsed);  end;

 

---

StrNew

 

procedure TWideCharStrList.AddString(const S: string); var    L, D: Integer; begin    FList[FUsed] := StrNew(PWideChar(S));    Inc(FUsed);  end;

 

---

SysUtils.AppendStr

 

这种方法只能使用AnsiString类型，而不是UnicodeString。

  AppendStr(String1, String2);

即下面的代码：

 String1 := String1 + String2;

 

---

GetProcAddress

 

当你调用GetProcAddress应该总是使用PAnsiChar（SDK中是没有后缀“W”的功能）。例如：

 procedure CallLibraryProc(const LibraryName, ProcName: string);  var    Handle: THandle;    RegisterProc: function: HResult stdcall;  begin    Handle := LoadOleControlLibrary(LibraryName, True);    @RegisterProc := GetProcAddress(Handle, PAnsiChar(AnsiString(ProcName)));  end;

 

---

StringElementSize

返回该字符串元素（"代码点"）的大小。考虑下面的代码：

procedure TForm88.Button3Click(Sender: TObject); var A: AnsiString; U: UnicodeString; begin A := 'This is an AnsiString'; Memo1.Lines.Add('The ElementSize for an AnsiString is: ' + IntToStr(StringElementSize(A))); U := 'This is a UnicodeString'; Memo1.Lines.Add('The ElementSize for an UnicodeString is: ' + IntToStr(StringElementSize(U))); end;

在这段代码的执行结果如下：

The ElementSize for an AnsiString is: 1 The ElementSize for an UnicodeString is: 2

 

---

StringCodePage 返回字符串值适当的代码页。

 

考虑下面的代码： procedure TForm88.Button2Click(Sender: TObject); type // The code page for ANSI-Cyrillic is 1251 CyrillicString = type AnsiString(1251); var A: AnsiString; U: UnicodeString; U8: UTF8String; C: CyrillicString; begin A := 'This is an AnsiString'; Memo1.Lines.Add('AnsiString Codepage: ' + IntToStr(StringCodePage(A))); U := 'This is a UnicodeString'; Memo1.Lines.Add('UnicodeString Codepage: ' + IntToStr(StringCodePage(U))); U8 := 'This is a UTF8string'; Memo1.Lines.Add('UTF8string Codepage: ' + IntToStr(StringCodePage(U8))); C := 'This is a CyrillicString'; Memo1.Lines.Add('CyrillicString Codepage: ' + IntToStr(StringCodePage(C))); end;

在这段代码的执行结果如下：

The Codepage for an AnsiString is: 1252 The Codepage for an UnicodeString is: 1200 The Codepage for an UTF8string is: 65001 The Codepage for an CyrillicString is: 1251

 

---

有几个程序来从一个代码页转换到另一个字符串。它们是：

 

UnicodeStringToUCS4String UCS4StringToUnicodeString UnicodeToUtf8 Utf8ToUnicode

 

---

RawByteString ，这是一个不与任何字符集关联的字符串：

RawByteString = type AnsiString($FFFF);

RawByteString类型变量需要使用尽可能少，因为这会导致数据丢失。让我们来看看为什么。

通常，字符串类型支持的任务。

例如：

MyUnicodeString := MyAnsiString;

将如预期般运作 - AnsiString类型的的内容将被放置在UnicodeString。编译器做所有的工作转变，如果可能的话。

然而，有些变化可能导致数据丢失，例如，你可以分配一个UnicodeString类型的变量AnsiString类型，但如果UnicodeString包含非当前的ANSI所包括的字符，这些字符转换时将会丢失。考虑下面的代码：

procedure TForm88.Button4Click(Sender: TObject); var U: UnicodeString; A: AnsiString; begin U := 'This is a UnicodeString'; A := U; Memo1.Lines.Add(A); U := 'Добро пожаловать в мир Юникода с использованием Дельфи 2009!!'; A := U; Memo1.Lines.Add(A); end;

如果操作系统是活动代码页1252运行此代码后，显示如下：

This is a UnicodeString ????? ?????????? ? ??? ??????? ? ?????????????? ?????? 2009!!

正如您可以看到从该西里尔字符不是在Windows - 1252包括事实上，信息丢失，当您指定的UnicodeString AnsiString类型线。其结果是不可理解的文字的UnicodeString包含字符代码页中没有表示的以AnsiString类型，所以这些字符流失，用问号代替。

---