delphi utf8乱码问题  
官方Delphi 学习QQ群: 682628230(三千人)\n
频道

delphi utf8乱码问题


其中的 utf8 是一种常用的 unicode 编码方式,在目前的网络环境中应用最广,特别是在java,xml这种国际化很强的地方.delphi并不支持原生的utf8字符串,它对 unicode 的支持则是非常好了.将普通字符串赋值给 String 类型即可.而对 uft8 则要用到上面所说的Utf8ToAnsi 等转换函数.好在这些函数都很容易使用,只是大家在使用时要注意自己当前操作的字符串是什么类型就行了.类似的函数还有
AnsiToUtf8

UTF8Decode
Utf8ToAnsi
UTF8Decode
UTF8Encode

 下面我是把UTF-8编码的XML 载入MEMO 的代码



procedure TForm1.Button1Click(Sender: TObject);
var s:string;
 tt:TMemoryStream;
 i:Integer;
 Filebuf: array of pchar;
begin

  i:=0;
  tt:=TMemoryStream.Create;

  tt.LoadFromFile('1.xml');
  i:=tt.Size ;
  SetLength(FileBuf,i);
  tt.ReadBuffer(FileBuf[0],i);

  s:=StrPas(@Filebuf[0]);
  S := Utf8ToAnsi(s)  ;
  memo1.Lines.Text:= S     ;

  end;

推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.039884090423584 seconds