自定义过程 用 集合作为形参 该怎么写啊

Question

该怎么写啊 我怎么老报错啊  谁给个例子啊 

Answer 1

我的意思是 在声明这个过程时该怎么写啊  我写了 老报错 set 未定义

Answer 2

type
  TMySet = set of 1..100;procedure (a: TMySet);
begin
end;

Answer 3

你不会是照抄他的吧? 他的没写函数名type
  TMySet = set of 1..100;procedure y(a: TMySet);
begin
  if 3 in a  then
    ShowMessage('3 in a');
end;procedure TForm1.Button1Click(Sender: TObject);
var
  A: TMySet;
begin
  a := [1..3];
  y(a);
end;

Answer 4

type
  TMySet = set of 1..100;这个声明是要写在哪的啊 小弟真的是不懂啊 

Answer 5

我知道了 TMySet = set of 1..100;
就这句位置错了