blob: 770afa7ef126b39502b71d58aa74f35a6bc2f997 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
program project1;
{$mode delphi}
type
TEnum1 = (en1, en2);
TEnum2 = (en3, en4);
TSet1 = set of TEnum1;
TSet2 = set of TEnum2;
procedure DoSomethingWithSet(ASet: TSet1); overload;
begin
end;
procedure DoSomethingWithSet(ASet: TSet2); overload;
begin
end;
begin
DoSomethingWithSet([en1]);
end.
|
