[Back to DATATYPE SWAG index]  [Back to Main SWAG index]  [Original]

 ->> You could also open the File as unTyped :-), and use blockRead to
 ->> read big chunks Until you've read (recSize * number of Records beFore

 PW>       Can I do this even if the File is a Typed File to begin with?  How
 PW> would I do it?  Thanks For the info.


You can close it and reopen it, just use two Variables:

  Var
    uf:   File;
    tf:   File of gummi_bear;


  begin
    assign(tf, 'TEST.FIL');
    reset(tf);
    .
    .                   (* do whatever you need the Typed File For *)
    .
    close(tf);
    assign(uf, 'TEST.FIL');
    reset(uf, 1);       (* tell runtime lib that rec size is one Byte *)
    .
    .                   (* now it's unTyped, you can use blockread to *)
    .                   (* read an arbitrary number of Bytes *)
    close(uf);
  end;


[Back to DATATYPE SWAG index]  [Back to Main SWAG index]  [Original]