Select Case statement

[circular17]

No description provided.

[circular17]

  if TryToken(ALine,index,'Select') then
  begin
    TryToken(ALine, index, 'Case');
    expr := TryExpression(AScope,ALine, index, true);
    if expr <> nil then
      AProg.Add(TSelectCaseIntegerInstruction.Create(expr))
    else
    begin
      pl := TryParsePlayer(AScope, ALine, index);
      if pl <> plNone then
        AProg.Add(TSelectCasePlayerInstruction.Create(pl))
      else
      begin
        if TryStringConstant(AScope, ALine, index, text) then
          AProg.Add(TSelectCaseStringConstantInstruction.Create(text))
        else
        begin
          conds := ExpectConditions(AScope, ALine, index, AThreads);
          AProg.Add(TSelectCaseBooleanInstruction.Create(conds));
        end;
      end;
    end;
  end else