Delphi 7, удалить символ в конце файла

[Flame_of_Death]

Доброго времени суток, уважаемые программеры! =)
См. вложение.
Читаю файл построчно циклом с условием EOF, в конце файла стоит символ выделенный красным в приложении, как его удалить из файла... Причем проверить на этот символ необходимо строку до выполнения других операций в теле цикла...

[Пепел Феникса]

так если он в конце то Delete удалит
а проверка обычный if s[Length(s)]=символ then
правда я немного непонял этого

выделенный красным в приложении

какой символ?

[Serge_Bliznykov]

это код 12 - перевода страницы при печати
а проверить очень легко:

... 
  Readln(f, s);
  if Pos(#12,s) > 0 then delete(s,Pos(#12,s),1);
  ... дальше Ваш код

[Flame_of_Death]

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

это код 12 - перевода страницы при печати....

Попробовал данный код, не прошло...
Вероятно если файл DOS формата, но а тут кодировка WIN
Попытка взять в формате chr(12) так же не привела к успеху...

[Serge_Bliznykov]

кодировка тут не при чём - все символы с кодами < 0x80 кодируются одинаково ВО ВСЕХ кодировках (ну, если не брать unicode, конечно )

приведите примерчик кода, которым читаете файл в цикле (а ещё лучше, сделайте новый небольшой отдельный проект и выложите его код здесь. Может Вы для чтения используете какой-то специфический компонент... )

[VintProg]

Flame_of_Death
Воспользуйся функцией:
SetEndOfFile

Функция делает текущую позицию файла концом файла. Если тебе нужно сократить размер файла, то вызови эту функцию, установи курсор в необходимую позицию и вызови эту функцию.