[DA54]

Всем привет! Такой вопрос: к примеру у меня есть файл размером 5байтов. Я хочу удалить последний байт.Не записать в последний байт "0",а реально удалить байт так что размер файла станет на 1 байт меньше,в данном случае станет 4... Предложили переписать файл,а в цикле поставить размер файла минус кол-во ненужных байтов.Но это очень долго для больших файлов... Может кто знает как это сделать проще?

[zip000]

При испльзовании TFileStream для работы с файлами достаточно присвоить нужный размер свойству Size. И все.

Код:

var f : TFileStream;
f := TFileStream.Create('SomeFile', fmOpenWrite);
f.Size := f.Size - 1; // обрезаем файл на 1 байт.
f.Free;

[DA54]

Спасибо...

[AlexBlack]

Просто уточнение. Еще со времен DOS запись в файл нуля байт являлась признаком того, что файл обрезается по текущей позиции. По моему, в этом плане в Windows ничего не изменилось, хотя более корректно вызвать

SetEndOfFile(Handle)

TFileStream именно это и делает. Смотрим исходники:

procedure THandleStream.SetSize(NewSize: Longint);
begin
Seek(NewSize, soFromBeginning);
Win32Check(SetEndOfFile(FHandle));
end;

[DA54]

Вообще-то,в функции seek первый параметр указывает на сопряженный файл,а именно на переменную типа file. Вопрос:почему у тебя первый параметр longint?