Here's the second error. Now the compiler does not know what
DatabasefileTYPE is. You've gotten into a circular definition, which is not allowed (except with pointers, but that's an advanced subject I don't think you're ready for yet.)
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;
But this is not the correct definition for
Memberdatabase. The innards of
Memberdatabase should be identical to
MemberdatabaseDDC.
Program schoolSBA;
{This program was written by Michael Jarvis, a student of the Saint Mary's Academy.}
uses crt, dos;
Type
Memberdatabase = record
Member_ID : string[10];
Member_Name : String[30];
Member_TicketPayment : integer;
Advert : string;
end;
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;
