本文整理自网络,侵删。
//方法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 xe7 android通过配置实现splash功能
Delphi tmemo控件滚动条scrollbar末尾插入字符串一点都会闪烁的轻松实现
Delphi提示‘error loading midas.dll’的原因及解决方案
更多相关阅读请进入《Delphi》频道 >>