Quote (NimFa)
но в том то и дело, я не могу придумать, как ВЫЯВИТЬ эту последнюю строку???
Поставим ограничение, что в строке не более 255 символов. Вариант раз:
Code
ReadLn(F,s);
while not SeekEof(F) do
begin
Writeln(F2,s);
Readln(F,s);
end;
тут предполагалось, что файл не пустой.
Вариант 2 не использовать дополнительный файл, а основной объявить как типизированный. тогда функциями FilePos и Seek легко добиться нужно результата.
