code snips

30/10/2019

>>>Could you please let me know what you changed for this (maybe a couple of before/after clips) and I will put it into my version. I do not want to release anything which writes OTBOX files without this byte set.

Hi Graeme,

There are 3 changes needed:

in file pad_unit.pas , 10 was 11, and insert 1 new red line:

Tbox_dims1=record

box_ident:string[10]; // first 11 bytes, in OTBOX

id_byte:byte; // set to 255 $FF in OTBOX files - not read

now_time:integer; // date/time/random code at which template added to keep box.

// (from Delphi float format - fractional days since 1-1-1900).

// this is used to detect duplicates on loading.

in file keep_select.pas , insert 1 new red line:

if file_index=(group_count-1)

then next_ti.keep_dims.box_dims1.box_ident:='NX'+IntToStr(file_index) // (string[10])

else next_ti.keep_dims.box_dims1.box_ident:='N '+IntToStr(file_index);

next_ti.keep_dims.box_dims1.id_byte:=255; // identify file as OTBOX rather than BOX 224a

case rolling_backup of

cheers,

Martin.

link to this page: https://85a.uk/templot/companion/code_snips.php