本文整理自网络,侵删。
//方法1:Uses IOUtils;TFile.ReadAllText(FileName);TFile.ReadAllText(FileName, s, TEncoding.ASCII) // force encoding
//方法2:function LoadFileToStr(const FileName: TFileName): String; var LStrings: TStringList; begin LStrings := TStringList.Create; try LStrings.Loadfromfile(FileName); Result := LStrings.text; finally FreeAndNil(LStrings); end; end;
相关阅读 >>
Delphi 实现dns上线域名解析(用于远控server)
Delphi datasettojson jsontodataset
Delphi xe5的新功能“ tlistview内置搜索过滤”
更多相关阅读请进入《Delphi》频道 >>