pos、ansipos、fillchar在delphi2010中unicode的问题

pos、ansipos、fillchar在delphi2010中unicode的问题

今天研究了一下delphi2010的unicode，发现一大堆的转换问题，建议大家老项目还是别转换到2010版本上，否则出问题都不知道在哪里。新项目可以直接使用delphi2010工作。

 

在delphi2010中定义一个变量str，无论这个变量定义为string 还是 ansistring，pos和ansipos函数都将该变量str当做unicodestring类型处理，大家可要小心了。

 

procedure TForm2.Button1Click(Sender: TObject);
var
  str: AnsiString;
begin
  str := '中华人民共和国';
  ShowMessage('长度:' + IntToStr(Length(str))); 
  ShowMessage('位置:' + IntToStr(AnsiPos('民', str))); // 换为pos还是返回4
end;

 

在delphi2010中fillchar中的char还是按字节来做的，可不是widechar类型，大家可要小心了

procedure TForm2.Button2Click(Sender: TObject);
var
  Buf: array [0 .. 4] of Char;//这里delphi2010认为cha是2个字节
begin
  FillChar(Buf, Length(Buf), #0);//如果使用Length(Buf)来填充，那就少填写了一些内容，大家可以设置断点来查看。正确应该用SizeOf(Buf)
  ShowMessage('SizeOf:' + IntToStr(SizeOf(Buf)));
  ShowMessage('Length:' + IntToStr(Length(Buf)));
end;

总之，感觉delphi2010还没有多细节还没做好，char应该是2个字节，有的函数还是还认为char是1个字节（例如fillchar）。如果项目要升级到2010，大家要注意很多地方

因为有时会用FillChar(Buf, Length(Buf), #0);初始化结构,故不能简单的将其长度乘以2

procedure FillWideChar(Buf:PWideChar;Count:Integer;Char:WideChar);
var
i:Integer;
begin
   for i:=0 to  Count -1 do
   begin
     Buf[i]:=Char;
   end;
end;