1.集合的用法
(1)
IN 判断是否存在

type
TCharset = set of char;
var
t: TCharset;

begin
t:= ['a','b','s'];
if 's' in t then
ShowMessage('in');
end;

判断是否缺乏

if not ('m' in t) then
// do something
(2)增加删除
+ ,-
Include(t,'m');
ExClude(t,'a');
(3)交集
if ['a','b']*t=['a','b'];
2.什么时候用new
 new()给指向已知大小的结构的指针分配内参，记住用Dispose()释放new()申请的任何内存
  用GetMem()或AllowMem()给未知大小的结构分配内存。并用FreeMem()清除
   AllowMem()比GetMem()安全，因为把申请到的内存初始为零
3. 创建命名类型完成a对b的赋值
type
PtrInteger = ^Integer;
var
a,b:PtrInteger;
4.类型别名
type
MInt :Integer;
强类型(strongly typed):
type
 MInt  = type integer; (MInt 与Integer不兼容)
5.类型转换

只有两个变量的数据占用的内存大小相同时才能进行

浮点转整数:Trimc()或者Round()
整数到浮点: 使用赋值
6.字符串资源:
resourcestring:
resstring ='resource'
7.参数传递
--------------------------------------
1.值参数
procedure fun(s:string);
2.引用参数
procedure fun(var s:string);
3.常量参数
procedure fun(const s:string);
4.开放数组
function fun(a:array of integer):integer;
使用high(),low(),sizeof()获得数组信息
----------------------------------------
8.