Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

  // очищаем список элементов

  Attrs.Clear;

  Values.Clear;

  State := ReadTag; // входное состояние автомата

  i := 2; // пропускаем символ '<'

  while (Tag[i]<>'>') and (i<Length(Tag)) do

  begin

    case State of

      ReadTag:

      if Tag[i] in Delimeters then

      begin

        // чтение имени тэга закончено

        TagName := GetSubString(Tag, StartPos, i);

        State := WaitAttr;

      end;

      WaitAttr:

      if (Tag[i] in Delimeters) = False then

      begin

        if Tag[i] = '=' then

        begin

          Result := resBadSyntax;

          Exit;

        end;

        StartPos := i;

        State := ReadAttr;

Рекомендуем скачать другие рефераты по теме: курсовик, контрольные 10 класс.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки