2 лишних байта при построковой перезаписи

[Alex Cones]

Type 
 TCList = Array of ShortString;

 TCode = Record
   FileName : ShortString;
   FileData : TextFile;
   CodeList : TCList;
 End;

Var
 Code : TCode;
 F2 : TextFile;
 N:Integer;
Begin
 Code.FileName := ParamStr(1);
 AssignFile(Code.FileData, Code.FileName);
 Reset(Code.FileData);
 SetLength(Code.CodeList, 0);
 While Not Eof(Code.FileData) Do
  Begin
   SetLength(Code.CodeList, Length(Code.CodeList) + 1);
   ReadLn(Code.FileData, Code.CodeList[Length(Code.CodeList) - 1]);
  End;
 CloseFile(Code.FileData);
 AssignFile(F2, Code.FileName +'.txt');
 Rewrite(F2);
 For N:=1 to Length(Code.CodeList) do
  WriteLn(F2,Code.CodeList[N-1]);
 CloseFile(f2);
End.

Входящий - 112 байт,
Исходящий - 114 байт.

Вопрос: с какого?

[psycho-coder]

С такого)))

WriteLn(F2,Code.CodeList[N-1]);

[Alex Cones]

Теперь все идет в одну строку и весит 106
Хотя ладно, причину установил.
Тему в клоуз.

[psycho-coder]

Сделай проверку

if N = Length(...) then Write(...)

А проще тупо удалить эти два байта из файла после записи
upd

Или так

For N:=1 to Length(Code.CodeList) -1 do
  WriteLn(F2,Code.CodeList[N-1]);
Write(F2,Code.CodeList[N]);

[spamer]

Хотя ладно, причину установил.
Тему в клоуз.

Дык, так а в чем же хоть причина то была? Интересно ведь
Или это из-за, как сказал psycho-coder :

WriteLn(F2,Code.CodeList[N-1]);

?

[eoln]

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

Дык, так а в чем же хоть причина то была? Интересно ведь ?

Проблема действительно была в LN. )
write('Привет') = Привет
writeLN('Привет') = Привет#13#10

[psycho-coder]

Этот кусок кода переписывает весь текст построчно, а последний вызов WriteLn дописывает текст и переносит строку (#13#10) как написал eoln.
Нужно последнюю запись делать через Write

[Serge_Bliznykov]

Сообщение от psycho-coder

Нужно последнюю запись делать через Write

я не уверен, что если в конце есть последняя пустая строка, она корректно будет скопирована в новый файл...

[psycho-coder]

Кстати, да. Сейчас попробовал, пустые строки вообще игнорирует.
Это обусловлено тем, что ReadLn и Read копирует строку до знаков переноса (#13#10). так что такой неявный trim))