![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
текстовый файл [D7, XP]
jonin © (2009-02-08 12:27:00)добрый день, подскажите пожалуйста как при нажатии кнопки удалить из текстового файла (C:\new.txt) весь текст содержащийся в нем,
//текст удаляем а файл остается, как это сделать? подскажите пожалуйста
AndreyV (2009-02-09 09:55:00) [1]> [10] Rouse_ © (09.02.09 09:32)
> Перезапись не есть удаление...
Если это мне то, то был ответ на
> [8] Джо © (09.02.09 02:54)
в контексте
> [5] SP (08.02.09 21:05)
> Удалить файл и создать новый(пустой).
Rouse_ (2009-02-09 09:32:00) [2]Перезапись не есть удаление...
AndreyV (2009-02-09 03:08:00) [3]> [8] Джо © (09.02.09 02:54)
> Если меня склероз не обманывает, то, если есть права на
> на запись (Write Data), то будут и право на создание файла.
А на удаление отдельно.
Джо (2009-02-09 02:54:00) [4]
> antonn © (08.02.09 23:01) [6]
>> а прав на создание или удаление
>> > файла может не быть.
Если меня склероз не обманывает, то, если есть права на на запись (Write Data), то будут и право на создание файла.
Германн (2009-02-09 01:54:00) [5]
> antonn © (08.02.09 23:01) [6]
>
>
> > А смысл?
>
> смысл в том, что файл нужно очистить (если фантазии мало,
> подскажу - логи), а прав на создание или удаление файла
> может не быть.
>
А решение тогда какое?
Фантазия - это, конечно, весьма важная весчь!
Но что она сможет, если прав нету?
antonn (2009-02-08 23:01:00) [6]
> А смысл?
смысл в том, что файл нужно очистить (если фантазии мало, подскажу - логи), а прав на создание или удаление файла может не быть.
SP (2009-02-08 21:05:00) [7]
> добрый день, подскажите пожалуйста как при нажатии кнопки
> удалить из текстового файла (C:\new.txt) весь текст содержащийся
> в нем,
Удалить файл и создать новый(пустой).
> //текст удаляем а файл остается, как это сделать? подскажите
> пожалуйста
А смысл?
Smile (2009-02-08 14:02:00) [8]А как на счет
Rewrite и Close
?
Anatoly Podgoretsky (2009-02-08 13:14:00) [9]> jonin (08.02.2009 12:27:00) [0]
Количество извращений на эту тему велико.
Amoeba (2009-02-08 12:59:00) [10]можно так:
Stream := TFileStream.Create('C:\new.txt', fmCreate);
Stream.Free;
Rouse_ (2009-02-08 12:58:00) [11]
procedure EraseFile(const Path: String);
begin
CloseHandle(CreateFile(PChar(Path), 0, 0, nil, CREATE_ALWAYS, 0, 0));
end;