Показать сообщение отдельно
  #2  
Старый 28.04.2010, 16:45
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,105
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Просто загрузи исходный файл в память (в TStringList), например, а потом обратным циклом запиши его как второй на диск (For I := StringList.Count-1 DownTo 0 Do ...)
Ответить с цитированием