Чтение/запись произвольных файлов из/в переменную часть btrieve-файлов

Описание

Текст примера

 import TVLw;

     file SignFile("rtsign.dbt","sbbank.def") write;
     var fs=0;

     rewind(SignFile);
     next(SignFile);   // Встаем на первую запись в файле
     fs = WriteVL(SignFile, "c:\\000.bmp"); // Записываем файл 000.bmp в 
                                            // переменную часть. В fs получаем
		 		       // размер файла 000.bmp
     SignFile.Lengs = fs;
     update(SignFile);