The first error, in
red, happens because the compiler does not know what
Memberdatabase is. The compiler is a "single pass" compiler. It does not look ahead.
Program schoolSBA;
{This program was written by Michael Jarvis, a student of the Saint Mary's Academy.}
uses crt, dos;
Type
Databasefiletype = file of Memberdatabase;{THIS IS WHERE THE ERRORS START..ENLIGHTENING ME PLEASE}
Memberdatabase = record
DDCFILE,
DPIfile,
DSGOfile: DatabasefileTYPE;
Databasefiletype : file of Memberdatabase;
This declaration needs to be made after you have declared
Memberdatabase.
Program schoolSBA;
{This program was written by Michael Jarvis, a student of the Saint Mary's Academy.}
uses crt, dos;
Type
Memberdatabase = record
DDCFILE,
DPIfile,
DSGOfile: DatabasefileTYPE;
Databasefiletype : file of Memberdatabase;
MemberDatabaseDDC = record {declaration of record}
Member_ID : string[10];
Member_Name : String[30];
Member_TicketPayment : integer;
Advert : string;
end;
MemberDatabaseDPI=record
Member_ID : string[10];
Member_Name : String[30];
Member_TicketPayment : integer;
end;
MemberDatabaseDSGO = record
Member_ID : string[10];
Member_Name : String[30];
Member_TicketPayment : integer;
end;
Databasefiletype = file of Memberdatabase;
