Typed file functions

Wed, 13 Aug 1997 11:40:00 +0200

Dear Peter G.

Thank you for your very useful help. I apolagize about my constant
questions but I feel like someone in the desert searching for water. All
my actual problems are with accessing files. The description of my file
is the following:

type
 tf1 = record
  preco       : integer;
  idade       : integer;
  titulo      : string[90];
  end;

var
  r1  : tf1;
  f1  : file[1..1000] of tf1;

Now i'm using the following routine to assign a types file:

  Procedure FAssign ( Var somefile; Name: String );
  Var
    t : bindable text absolute somefile;
    b : bindingtype;
  begin
  unbind(t);
  b:=binding(t);
  b.name:=name;
  bind(t,b);
  b:=binding(t);
  end;

This code was gaved by you and I think it is working properlly. After
assigning the file I'm doing :

reset(f1);
while not eof(f1) do
 begin
 seekread(f1,n); (n is integer);
 end;

After the seekread I want to read one record to the variable r1 of type
tf1. What function do I use to do this. I know that GPC contains a get
procedure but the only parametres that it accepts if the file variable.

Can you help me once more ? Please !

Best regards

Joao Miguel Domingos

JoÒo Miguel Domingos (castor@supra.pt)