typeTSet = Set of 1..100;var
set1: TSet;
set2: TSet;
begin
set1 := [1, 2];
set2 := [1, 2, 3];偶这样
if (set1 - set2 = []) and (set2 - set1 = []) then是不是这样写的啊?还有其它的办法吗?
set1: TSet;
set2: TSet;
begin
set1 := [1, 2];
set2 := [1, 2, 3];偶这样
if (set1 - set2 = []) and (set2 - set1 = []) then是不是这样写的啊?还有其它的办法吗?
TSet = set of 1..100;
var
set1: TSet;
set2: TSet;
begin
set1 := [1, 2];
set2 := [1, 2, 3];
if set1 <= set2 then ShowMessage('set2包含set1');
end;