Insert для типизированного файла.

[Alex Cones]

Записиваю матрицу байт в файл, потом брожу по файлу с Seek, считываю значения, в общем веселюсь, как могу. Изменяю значение при помощи BlockWrite:

FF FE ED

Seek(F,1);
B:=$23;
BlockWrite(F, B, 1);

FF 23 ED

В общем, производится именно то, что мне надо. А вопрос заключается в следующем:
При таком подходе производится ЗАМЕНА байта (или ряда байтов), а вот возможно ли делать ВСТАВКУ ряда байтов без переписывания всего файла вручную? Сейчас мне это не горит, но может пригодится...

[Kotofff]

Может через потоки попробовать ?
Читаем из файла (используем TFileStream) до нужного байта или последовательности, пишем в другой поток (TMemoryStream) потом туда же пишем нашу последовательность. Потом читаем хвост файла и пишем все в тот же поток.
Ну а потом тот поток в который писали в файл.

[Alex Cones]

Хм... Это конечно вариант, но покороче никак нельзя? Я ничего не имею против потоков, но громоздко как-то...

[Kotofff]

Ну если данные невелики, то может читать в строку как в буфер, а потом Insert ?

[Alex Cones]

Ну если данные невелики, то может читать в строку как в буфер, а потом Insert ?

Спасибо, учту и такой вариант.