delphi - Unix と DOS ファイルの両方の処理

Question

私のアプリは、WINdwos システムと Linux で生成されるテキスト ファイルを処理します。

両方の行末を処理する最小限の労力の方法は何ですか?

つまり、行ごとに、行末が削除された文字列を取得したいと考えています。

Answer 1

TStringListWindows と 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.