case "не понимает" пустой оператор после метки

Комментарии

• AlexTZ

  April 2004 отредактировано 09:21

  fs_iilparser:
  

  procedure TfsILParser.DoCase(xi: TfsXMLItem; Prog: TfsScript; Statement: TfsStatement);
  var
    i: Integer;
    Stmt: TfsCaseStmt;
  
    procedure DoCaseSelector(xi: TfsXMLItem);
    var
      Selector: TfsCaseSelector;
    begin
  //
      if (CompareText(xi.Name, 'caseselector') <> 0) or (xi.Count <> 2) then Exit;
  //
      Selector := TfsCaseSelector.Create(Prog, FUnitName, PropPos(xi));
      Stmt.Add(Selector);
  
      Selector.SetExpression := DoSet(xi[0], Prog);
      DoStmt(xi[1], Prog, Selector);
    end;
  
• Georgy

  April 2004 отредактировано 09:21

  ОК, спасибо! Еще одна мелочь - case допускает дублирование меток...