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

Georgy

case Key of
KEY_0:; // не понимает
KEY_1: begin end; // понимает

Мелочь, конечно, но если это не трудно пофиксить...

AlexTZ

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

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