1.集合的用法(1)IN 判断是否存在
typeTCharset = set of char;vart: TCharset;
begint:= ;if 's' in t thenShowMessage('in');end;
判断是否缺乏
if not ('m' in t) then// do something(2)增加删除+ ,-Include(t,'m ...……
if MessageDlg('WelcometomyDelphiapplication.Exitnow?',mtConfirmation,,0)=mrYesthenbegin Close;end;MessageDlg用法对话框类型:mtwarning——含有感叹号的警告对话框mterror——含有红色叉符号的错误 ...……