Стереть файл...

[VintProg]

Как удалить все данные в файле, что-бы он стал 0 кб? Для TFileStream...

[BOBAH13]

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

Как удалить все данные в файле, что-бы он стал 0 кб? Для TFileStream...

seek в 0 от начала файла и потом через Handle TStream используя WinApi - SetEndOfFile установить конец файла, что по сути, конец файла = начало файла (смещение 0 байт от начала).

p.s. я лично уже забыл, поиск занял 2-3 минуты.

[veniside]

Для файлстрима сработает SetSize := 0, т.к. реализация там взята у BOBAH13

procedure THandleStream.SetSize(const NewSize: Int64);
begin
  Seek(NewSize, soBeginning);
{$IFDEF MSWINDOWS}
  Win32Check(SetEndOfFile(FHandle));
{$ELSE}
  if ftruncate(FHandle, Position) = -1 then
    raise EStreamError(sStreamSetSize);
{$ENDIF}
end;

[Человек_Борща]

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

Как удалить все данные в файле, что-бы он стал 0 кб? Для TFileStream...

Куда проще удалить файл а на его место положить свой нулевого размера...

[BOBAH13]

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

Для файлстрима сработает SetSize := 0, т.к. реализация там взята у BOBAH13

procedure THandleStream.SetSize(const NewSize: Int64);
begin
  Seek(NewSize, soBeginning);
{$IFDEF MSWINDOWS}
  Win32Check(SetEndOfFile(FHandle));
{$ELSE}
  if ftruncate(FHandle, Position) = -1 then
    raise EStreamError(sStreamSetSize);
{$ENDIF}
end;

Да не у меня собственно, просто VCL это есть обвертка над API, для Windows - WinAPI соответственно, так что не удивительно, просто я как и написал, забыл уже VCL, разумеется в данном случае лучше использовать SetSize, как вы и написали.

[veniside]

Куда проще удалить файл а на его место положить свой нулевого размера...

Угу. Разве что если твой работодатель оценивает не качество кода, а число строк. Тогда вместо Size := 0; можно замутить проектик на 30 человекочасов )

Да не у меня собственно

Да я пошутил, собственно )