摘要：1.集合的用法(1)IN 判断是否存在typeTCharset = set of char;vart: TCharset;begint:= ['a','b','s'];if 's' in t thenShowMessage('in');end;判断是否缺乏if not ('m' in t) then// do something(2)增加删除+ ,-Include(t,'m');ExClude(t... 阅读全文

摘要：不带关键字packed typeTMyRecord = record abyte :byte; along :longint;end; 长度为 8 typeTMyRecord = packed record abyte :byte; along :longint;end; 长度为 4 规则:不要猜测一个记录类型有多大,还是老实用sizeof 阅读全文

摘要：1. exit: 退出函数体 abort: 遇到异常,安静处理,就是不显示不提示 break: 退出当前循环体,包括for ,while, repeat等循环体 continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行 2. 获得电脑运行时间 function TickCountToString(dwTickCount: DWORD): string; var nVal... 阅读全文