Показать сообщение отдельно
  #8  
Старый 03.09.2012, 18:53
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
Откуда у файла размером например 100 байт возмётся 100 строк?
Ну если перевод строки отмечать одним символом #13, и сделать 100 переводов строк, то как раз.
Не проще сделать TStringList.LoadFromFile вместо всего этого цикла? Понятное дело, что там внутри все равно похожий цикл, но он там однозначно рабочий. Если хочется самому - можно использовать eof и одновременно считать и читать строки до конца файла, добавляя их куда надо.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием