读取中文时如果你的编码不是UTF-8,而你又是采用这种格式读取的话,会报以下错误码

TStringList.LoadFromFile时会出现 No mapping for the Unicode character exists in the target multi-byte code page提示

如下代码

[delphi] view plain copy

print ?

1. var tmpStrs : TStrings;  
2. begin  
3.   tmpStrs := TStringList.Create;  
4.   tmpStrs.LoadFromFile(filename, TEncoding.UTF8);  //这里有可能会出现No mapping for the Unicode character exists in the target multi-byte code page  
5.   tmpStrs.Free;  
6. end;  

var tmpStrs : TStrings;
begin
  tmpStrs := TStringList.Create;
  tmpStrs.LoadFromFile(filename, TEncoding.UTF8);  //这里有可能会出现No mapping for the Unicode character exists in the target multi-byte code page
  tmpStrs.Free;
end;

原因是读取的文件如果不是UTF8格式的，会出现错误提示，改进方法如下

[delphi] view plain copy

print ?

1. var tmpStrs : TStrings;  
2. begin  
3.   tmpStrs := TStringList.Create;  
4.   try  
5.     tmpStrs.LoadFromFile(htmlfile_s, TEncoding.UTF8);  //先用utf-8尝试  
6.   except        
7.     tmpStrs.LoadFromFile(htmlfile_s);   //再用默认编码尝试  
8.   end;  
9.   tmpStrs.Free;  
10. end;