Где-то я уже писал про это.
Короче идея такая:
Делаешь структуру типа:
Код:
TDataInfo = record
TextLen:Int64;
BmpLen:Int64;
end;
заполняешь длинами файлов, потом пишешь в файл в таком порядке
DataInfo
TextFile
BmpFile
при чтении
сначала читаешь DataInfo
текст читаешь со смещения 0+SizeOf(TDataInfo) до 0+SizeOf(TDataInfo)+DataInfo.TextLen
картинку читаешь со смещения 0+SizeOf(TDataInfo)+DataInfo.TextLen до
0+SizeOf(TDataInfo)+DataInfo.TextLen+DataInfo.BmpL en
Доходчиво?