home *** CD-ROM | disk | FTP | other *** search
- Type
- TestRec = Record
- RecStatus : Integer; {now required by TACCESS}
- Date : String[10]; {all dates are String[10]}
- Date2 : String[10];
- TestReal : String[10]; {all reals and integers are stored as strings}
- TestInt : String[10];
- TestStr : String[20];
- end;
- MaxDataType = TestRec;
- MaxKeyType = String[20];