【文件属性】：
文件名称：集合的应用-delphi的入门教程
文件大小：1.34MB
文件格式：PPT
更新时间：2024-05-14 23:26:04
delphi教程
4、集合的应用
Var
Language: set of (English,German,France);
procedure TForm1.chkEnglishClick(Sender: TObject);
begin
if (Sender as TCheckBox).Checked then
Language := Language + [English]
else
Language := Language - [English];
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if [English] <= Language then
ShowMessage('English被选中');
end;