Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление символа конца строки в текстовом файле [D6, Win2k, WinXP]

jonik © (2004-11-11 19:19:00)
Собственно сабж ...

jonik (2004-11-12 19:07:00) [1]
Приношу извинения всем, кто вчера не дождался окончания обсуждения! :)
Сообщаю: работает!!!
Итого имем:

Reset(f,1); seek(f,FileSize(f)-1); blockread(f, c, 1); if c = ^Z then begin seek(f,FileSize(f)-1); truncate(f); end; closefile(f);

Большой фэнкс всем за помощь в решении проблемы... :))))

GuAV (2004-11-11 23:52:00) [2]
jonik (11.11.04 23:05) [14]
обрезает где-то в середине файла
в Reset напиши второй параметр равный 1

KilkennyCat (2004-11-11 23:15:00) [3]
хреново.

jonik (2004-11-11 23:05:00) [4]
обрезает где-то в середине файла

Verg (2004-11-11 20:54:00) [5]
c : char;
f : file;

seek(f, FileSize(f)-1);
blockread(f, c, 1);
if c = ^Z then
begin
seek(f, FileSize(f)-1);
truncate(f);
end;
close(f);

Так, кажется

jonik (2004-11-11 20:53:00) [6]
// var
F: File;

Ругается на SeekEof(F);

begin...end (2004-11-11 20:49:00) [7]
jonik (11.11.04 20:45) [10]

var
F: File;

jonik (2004-11-11 20:45:00) [8]
// а с текстовыми файлами работать можно только как с текстовыми?

A как с какими?

KilkennyCat (2004-11-11 20:42:00) [9]
а с текстовыми файлами работать можно только как с текстовыми?

jonik (2004-11-11 20:29:00) [10]
> А разве обязательно текстовый файл использовать?

В том-то и дело, что обязательно...

Alx2 (2004-11-11 20:20:00) [11]
>jonik (11.11.04 20:13) [6]
А разве обязательно текстовый файл использовать?

jonik (2004-11-11 20:13:00) [12]
> См Help и Truncate - обрезание конца файла

Truncate с текстовыми файлами не работает :\

Alx2 (2004-11-11 20:07:00) [13]
См Help и Truncate - обрезание конца файла (бр-р-р) :)

jonik (2004-11-11 19:53:00) [14]
>Символ Ctrl+Z (^Z) (конец файла)?
Где ты его "откопал"? :) Давненько я его не встречал :)

У компонента TApolloTable есть метод CopyFileText. Загоняет содержимое таблицы в текстовик и добавляет этот самый ^Z! От него-то и хотелось бы избавиться...

Verg (2004-11-11 19:44:00) [15]
Перевод строки в конце текстового файла - оно нормально, даже нужно. Строка должна заканчиваться своимконцом, а не концом файла.

> А ещё интересней удаление символа конца файла...

Символ Ctrl+Z (^Z) (конец файла)?
Где ты его "откопал"? :) Давненько я его не встречал :)

jonik (2004-11-11 19:39:00) [16]
да хотя бы одного... А ещё интересней удаление символа конца файла...

DiamondShark (2004-11-11 19:27:00) [17]
Одного? Или всех?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »