Заменить CR/LF на LF или что происходит с файлом.

[dwa_e]

Есть файл из UNIX системы, в нём содержится МАС адрес, в исходном состоянии файл имеет размер 18байт, но после простой манипуляции через StringList на выходе получаем 19байт. Что происходит?

var
SL1:TStringList;
begin
 SL1:= TStringList.Create;
 SL1.LoadFromFile('macid');
 SL1.SaveToFile('macid');
 SL1.Free;
end;

Дописывается «возврат каретки» (CR) или 0x0D или #13(кому как нравится), а в исходном файле в конце строки только «подача на строку» (LF) или 0x0A или #10. Выглядит это так

41 41 3A 42 42 3A 43 43 3A 44 44 3A 45 45 3A 46 46 0D 0A

помогите избавиться от 0D.
использую RAD Studio 10.3

[northener]

Сообщение от dwa_e

помогите избавиться от 0D.

А зачем от него избавляться?

[dwa_e]

Сообщение от northener

А зачем от него избавляться?

затем, что Unix не понимает этот файл в котором 0D, это пример с файлом из одной строки, а есть файлы и по 500 строк.

[northener]

var
  S : string;
  mf : TFileStream;
begin
  S:=SL1.Text;
  S:=StringReplace(S,#13#10,#10,[rfReplaceAll]);
  mf:=TFileStream.Create('TextWithout0D.txt',fmCreate);
  mf.Write(S[1],Length(S));
  mf.Free;
end;

[dwa_e]

спасибо, всё получилось, только из-за особенности RAD Studio всё делать в юникод, переменная S должна быть

S : ansistring;

иначе на выходе получаем файл нужного размера, но данные в юникоде и обрезаны.

41 00 41 00 3A 00 42 00 42 00 3A 00 43 00 43 00 3A 00