Delphi XE 的字符串理解

移动字符串或字符数组


 

 var

   Count: Integer;

   Buf1, Buf2: array[0..255] of Char;

 begin

   // 现有代码 - 不正确的，因为该字符串=UnicodeString

   Count := Length(Buf1);

   Move(Buf1, Buf2, Count);

  

   // 正确的Unicode

   Count := SizeOf(Buf1);                // <<-- 设置缓冲区的大小以字节为单位

   Count := Length(Buf1) * SizeOf(Char); // <<-- 设置缓冲区的大小以字节为单位

   Move(Buf1, Buf2, Count);

 end;

 

 

Length返回的字符的大小，但移动预计将在数个字节。在这种情况下，而不是长度在使用sizeof（或应当由字符的大小长度乘以）。

 

调用TStream.Read / ReadBuffer也应该考虑字符串或字符数组。考虑下面的代码：

 

 var

   S: string;

   L: Integer;

   Stream: TStream;

   Temp: AnsiString;

 begin

   // 现有代码 - 不正确的，因为该字符串=UnicodeString

   Stream.Read(L, SizeOf(Integer));

   SetLength(S, L);

   Stream.Read(Pointer(S)^, L);

  

   // 正确的数据为Unicode

   Stream.Read(L, SizeOf(Integer));

   SetLength(S, L);

   Stream.Read(Pointer(S)^, L * SizeOf(Char));  // <<-- 设置缓冲区的大小以字节为单位

  

   // 正确的ANSI数据

   Stream.Read(L, SizeOf(Integer));

   SetLength(Temp, L);              // <<-- 使用临时AnsiString类型

   Stream.Read(Pointer(Temp)^, L * SizeOf(AnsiChar));  // <<-- 设置缓冲区的大小以字节为单位

   S := Temp;                       // <<--转换为Unicode字符串

 end;

 

调用TStream.WriteBuffer. 考虑下面的代码：

 var

   S: string;

   Stream: TStream;

   Temp: AnsiString;

 begin

   // 现有代码 - 不正确的，因为该字符串=的UnicodeString

   Stream.Write(Pointer(S)^, Length(S));

  

   // 正确的数据为Unicode

   Stream.Write(Pointer(S)^, Length(S) * SizeOf(Char)); // <<-- 设置缓冲区的大小以字节为单位

  

   // 正确的ANSI数据

   Temp := S;          // <<--使用临时AnsiString类型

   Stream.Write(Pointer(Temp)^, Length(Temp) * SizeOf(AnsiChar));// <<-- 设置缓冲区的大小以字节为单位

end;