Also ich hatte vor ca 4 Jahren, als ich noch nicht über ein kommerzielles Delphi verfügte, für einen Künstler-Verein eine komplette Veranstaltungsverwaltung mit Delphi 7 Personal geschrieben, und zwar auf Basis folgender Records:
Delphi-Quellcode:
TYPE
STR002 = STRING[ 2];
STR005 = STRING[ 5];
STR010 = STRING[ 10];
STR012 = STRING[ 12];
STR020 = STRING[ 20];
STR030 = STRING[ 30];
STR040 = STRING[ 40];
STR050 = STRING[ 50];
STR100 = STRING[100];
STR150 = STRING[150];
STR200 = STRING[200];
STR255 = STRING[255];
ZEICHEN = ARRAY[0..255] OF CHAR;
PERSON = RECORD
Anrede : INTEGER;
Name : STR030;
Vorname : STR020;
GebDat : TDate;
GebOrt : STR050;
PLZ : INTEGER;
Ort : STR050;
Strasse : STR050;
Land : INTEGER;
Vorwahl : LONGINT;
TelPriv : STR020;
TelAtel : STR020;
TelHand : STR030;
Fax : STR020;
Email : STR050;
Homepage : STR100;
Ak : BOOLEAN;
Bk : BOOLEAN;
Dk : BOOLEAN;
Fv : BOOLEAN;
Li : BOOLEAN;
Mu : BOOLEAN;
Kf : BOOLEAN;
Eintritt : TDate;
Austritt : TDate;
Mark : BOOLEAN;
Datei : STR255;
END;
VERANSTALT = RECORD
Titel : STR200;
Beginn : TDate;
Ende : TDate;
Art : WORD;
Ort : WORD;
Verni : WORD;
Finni : WORD;
Mitt : WORD;
Donn : WORD;
Frei : WORD;
Sams : WORD;
Sonn : WORD;
Mark : BOOLEAN;
END;
TextZeilen = ARRAY[1..20] OF STR200;
MEDIUM = RECORD
Name : STR050; {Dateiname}
Typ : STR010; {Dateityp}
Size : Int64; {Dateigröße}
Datum : TDate; {Dateidatum}
Zeit : TTime; {Dateiuhrzeit}
Text : TextZeilen; {Beschreibung der Datei}
END;
VERTRAG = RECORD
Titel : STR100;
Preis : LONGINT;
Jahr : WORD;
Datum : TDate;
Breite : INTEGER;
Hoehe : INTEGER;
Kuenstler : STR050;
Kaufer : STR050;
Adress : STR100;
END;
Wichtig ist hier, in Records keine reinen Strings zu verwenden, sondern ausschließlich selbstdefinierte Shortstrings mit einer festen Größe.