home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
MISC
/
TGARTS.ZIP
/
TGDEV309.ZIP
/
TESTINC.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-11-06
|
2KB
|
48 lines
{$A+,B+,E-,F-,I-,N-,O+,R-,V-}
{$D-,L-,Q-}
{$I TELEGARD.INC }
begin
writeln;
writeln('Record Sizes (Telegard structures only!)');
writeln;
writeln('ConfigRec = ',sizeof(configrec));
writeln('SystemRec = ',sizeof(systemrec));
writeln('UserRec = ',sizeof(userrec));
Writeln(' .UserFlags = ',sizeof(userflags));
Writeln(' .UserStatus = ',sizeof(userstatus));
Writeln(' .uflags = ',sizeof(uflags));
Writeln(' .acrqs = ',sizeof(acrqs));
Writeln('UserIdxRec = ',sizeof(useridxrec));
Writeln('IDIdxRec = ',sizeof(ididxrec));
Writeln('AreaIdxRec = ',sizeof(areaidxrec));
writeln('FAreaRec = ',sizeof(farearec));
writeln('FileIdxRec = ',sizeof(fileidxrec));
writeln('FbRec = ',sizeof(fbrec));
writeln('DriveRec = ',sizeof(driverec));
writeln('QueueRec = ',sizeof(queuerec));
writeln('MAreaRec = ',sizeof(marearec));
writeln('MenuHdrRec = ',sizeof(menurec));
writeln('MenuItemRec = ',sizeof(commandrec));
writeln('BbsListRec = ',sizeof(bbslistrec));
writeln('ArchiveRec = ',sizeof(archiverec));
writeln('GroupRec = ',sizeof(confrec));
writeln('EventRec = ',sizeof(eventrec));
writeln('HistoryRec = ',sizeof(historyrec));
writeln('IemsiRec = ',sizeof(iemsirec));
writeln('LanguageRec = ',sizeof(languagerec));
writeln('LCallersRec = ',sizeof(lcallers));
writeln('LevelsRec = ',sizeof(levelsrec));
writeln('MacroRec = ',sizeof(macrorec));
writeln('ModemRec = ',sizeof(modemrec));
writeln('NetworkRec = ',sizeof(networkrec));
writeln('NodesRec = ',sizeof(nodesrec));
writeln('ProtRec = ',sizeof(protrec));
writeln('ShortMsgRec = ',sizeof(shortmsgrec));
writeln('SigsRec = ',sizeof(sigsrec));
writeln('SmacroRec = ',sizeof(smacrorec));
writeln('TimelogRec = ',sizeof(timelogrec));
writeln('VoteRec = ',sizeof(voterec));
end.