🚀 go-pugleaf

If it's going to be a simple project for a class then you can use simple block
file system.
type
    datarecord = record
        name:String[255];
        date:string[8];
        time:string[8];
       VideoTitle:string[64];
     end;
Var
  F:file of datarecord;
 R:DataRecord;
procedure addRec;
begin
  Seek(F, FileSize(F));
  write(F, R);
End;
begin
  AssignFile(F, 'databasename');
  Reset(F);
{$I-} // turn off io checking..
  read(F, R); // Read first record;
  if ioerror Then Rewrite(F); // if error then create data file for the first
time..
// edit your record ect////
 CloseFile(F);
Endl
 this is just a rough draft..




chris millar wrote:

> Hi I am a college student and I deparately need urgent help on pascal
> programming.
>
> I need to develop a simple program that can keep a video store booking
> system running.  I have chosen my data fields as Date of loan/return, what
> film(i.d number) and what time due back.
> I want to implement this using a 3 dimensional array, with a simple
> interface for the users.  I need to use file accessing methods too.  Can
> anyone steer me in the right direction or help me out.
>
> Thanks in advance.
>
> chris..
> chipmonk497@hotmail.com
> please reply to my mail address, anyone
>
> Thanks again
> .