| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
BlockRead/BlockWrite [D7, WinXP]
tupnyaki poshli © (2005-02-21 14:35:00)Что-то клинит по страшному...
Как удалить (обнулить) часть нетипизированного файла, то бишь, обнулить все значения начиная с какой-либо позиции до конца файла?
Просто разбирался с командами чтения\записи файла по блокам, и тут столкнулся с такой проблемой... Может вопрос и тупой, но я пока понять не могу, хелп мастера!
begin...end (2005-02-21 15:24:00) [1]> tupnyaki poshli (21.02.05 14:35)
var
F: file;
P: Pointer;
Position, Size: Integer;
begin
AssignFile(F, '...');
Reset(F, 1);
Position := ...;
Size := FileSize(F) - Position;
GetMem(P, Size);
try
ZeroMemory(P, Size);
Seek(F, Position);
BlockWrite(F, P^, Size)
finally
FreeMem(P);
CloseFile(F)
end
end
То же самое можно сделать и с помощью класса TFileStream.
Этот способ подойдёт для случая, когда требуется обнулить сравнительно небольшой кусок в файле, т.к. размер выделяемой памяти под буфер Pравен размеру этого куска. Для обнуления большой области лучше, ИМХО, выделять буфер поменьше, но записывать его в файл несколько раз (последовательно). Можно, конечно, записывать и по одному байту, но это будет медленно.
DiamondShark (2005-02-21 14:41:00) [2]Так удалить, или обнулить?
Удалить -- Truncate.
Обнулить -- писать нули.
| |
