delphi TStreamReader TFile AssignFile读取文本文件

在Delphi中有多种读取文本文件的方法，但是有优点和缺点，因此请根据情况正确使用它们。我认为使用TStreamReader或TFile是正常的，但是存在无法读取锁定文件的问题。

关于编码
TStreamReader TFile AssignFile

Ascii ○ ○ ○

SJIS △ ○ ○

UTF-8(无BOM) ○ △ ×

UTF-8(有BOM) ○ ○ ×

StreamReader使用例

try

sr := TStreamReader.Create(filename);

str := sr.ReadToEnd();

while not sr.EndOfStream do

begin

line := sr.ReadLine;

end;

except

on e: Exception do

begin

ShowMessage('ERROR:' + e.Message);

exit;

end;

sr.Free();

sl := TStringList.Create();

sl.Text := str;

TFile使用例

try

str := TFile.ReadAllText(filename); //全文string

sa := TFile.ReadAllLines(filename); //全文TStringDynArray

except

on e: Exception do

begin

ShowMessage('ERROR:' + e.Message);

exit;

end;

AssignFile使用例

AssignFile(f, filename);

try

Reset(f);

except

on e: Exception do

begin

ShowMessage('ERROR:' + e.Message);

exit;

end;

while not Eof(f) do

begin

ReadLn(f, line); //一行

end;

CloseFile(f);

推荐分享