Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
ВнизВопрос по работе с 16-ичными файлами Найти похожие ветки
← →
Новенький в Делфи (2002-10-08 01:59) [0]Надеюсь тему сформулировал верно, теперь бы ещё вопрос...
Есть файл, нужно в середину файла записать какое либо значение, но не поверх, а сдвинуть все записи от определённой позиции в лево и записать в этой позиции своё значение.
И обратная функция, удаление того значение, и сдвиг обратно.
Спасибо!
← →
PKT (2002-10-08 03:25) [1]var
RecPosition: Integer;
F: File;
Buf: Pointer;
L: Integer;
begin
AssignFile(F, FileName);
Reset(F, 1);
L := FileSize(F);
RecPosition := L div 2; //"середина" файла
GetMem(Buf, L - RecPosition); //выделяем буфер
BlockRead(F, Buf^, L - RecPosition); //читаем вторую половину файла
Seek(F, RecPosition); //возвращаемся в середину
BlockWrite(F, Kakoe_to_Znacheniye, SizeOf(Kakoe_to_Znacheniye));
BlockWrite(F, Buf^, L - RecPosition); //сохраняем вторую половину файла
CloseFile(F);
FreeMem(Buf, L - RecPosition);
end;
Ну а обратно, наверное, сами догадаетесь. На всякий случай
про Truncate и про Move почитайте.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c