Как очистить текстовый файл?

← →
picaroon (2003-06-29 16:41) [0]

Существует текстовый файл. Необходимо его открыть и полностью очистить. Поможите кто чем может...

← →
MBo (2003-06-29 16:44) [1]

assignfile
rewrite
closefile

← →
Palladin (2003-06-29 16:46) [2]

вот это загадка...

один из способов, первый пришедший в голову...
var
f:file;
assignfile(f,"file");rewrite(f,1);closefile(f);

← →
DVM (2003-06-29 16:57) [3]

Или удалить и создать новый с тем же именем. Чем не очистка?

← →
Shluz (2003-06-29 18:43) [4]

можно Api CreateFile с атрибутом CREATE_ALWAYS

← →
Region (2003-06-29 20:09) [5]

А можно еще вот как извратиться:
Загрузить в StringList, там потом
этот StringList обнулить, потом этот стринглист снова записать в файл....
Способов много.

← →
Ihor Osov'yak (2003-06-29 21:04) [6]

2 Region © (29.06.03 20:09)
Изврат. Могу предложить и похлеще.. Но зачем изврат, если можно и по-человеески - см. Shluz © (29.06.03 18:43) или Palladin,MBO..

2 DVM © (29.06.03 16:57)

Может быть в секюрити настройках отсутствовать право на удаление..

Впрочим, я не уверен, что это не будет помехой и для методов, предложенных
Shluz,Palladin,MBO.. Если это так (а мне сейчас влом смотреть докуиентацию и эксперименты делать) - то тогда нужно открывать файл как бинарный, делать truncate и закрывать..

← →
Morfein (2003-06-30 00:59) [7]

CloseHandle(CreateFile(pchar(FileName), GENERIC_READ, 0, nil, CREATE_ALWAYS, 0, 0));

Как очистить текстовый файл? Найти похожие ветки