如何判断某个值在枚举类型中。

Question

比如：有许多的俱乐部，例如：俱乐部1，俱乐部2，.......俱乐部n,而现在有人告说我一个俱乐部名称，比如俱乐部5，如何判断俱乐部5就是已经存在的俱乐部。
因为我要计算，如果属于这个俱乐部，则有关这个俱乐部的许多数据就要被我运用。
事例如下：运城市有5个俱乐部，分别是摄影俱乐部，足球俱乐部，易经俱乐部，篮球俱乐部等四个俱乐部，现在有人说，有个俱乐部叫汽车俱乐部，则我判断，不再这四个俱乐部里，所以我就放弃这个俱乐部提供的数据。而另个俱乐部名称为易经俱乐部，则判断是在这四个名称里，所以提供的数据，我就存储起来，移作他用。
请朋友帮帮忙，写出delphi的代码。谢谢

Answer 1

Type TMyEnum = (One, Two, Three);var
  m:TMyEnum;
begin
  for m := Low(TMyEnum) to High(TMyEnum) do
  begin
    if Three = m then
      ShowMessage('m 是枚举值');
    Break;
  end;
end;

Answer 2

type
  TClubType = (ct1, ct2, ct3);const
  CLUB_STR: array[TClubType] of string = ('俱乐部1','俱乐部2','俱乐部3');function ClubExists(const S: string): Boolean;
var
  I: TClubType;
begin
  for I:=Low(TClubType) to High(TClubType) do
    if CLUB_STR[I] = S then
    begin
      Result := True;
      Exit
    end;
  Result := False
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  if ClubExists('俱乐部1') then
    ShowMessage('存在')
  else
    ShowMessage('不存在')
end;