delphi - 处理 Unix 和 DOS 文件

Question

我的应用程序处理文本文件，这些文件有时在 WINdwos 系统和有时在 Linux 上生成。

处理两个行尾的最小努力方法是什么？

也就是说，对于每一行，我都想得到一个去掉行尾的字符串。

Answer 1

TStringList可以很好地处理 Windows 和 Linux 行尾。

program TestLFs;

{$APPTYPE CONSOLE}
uses
  Classes;

var
  SL: TStringList;
  s: string;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('YourUnixFile.txt');
    for s in SL do
      WriteLn(s);
    SL.LoadFromFile('YourWindowsFile.txt');
    for s in SL do
      WriteLn(s);
  finally
    SL.Free;
  end;
  ReadLn;
end.