интерпретатор для подмножества языка разметки гипертекста HTML - Общие вопросы Delphi

JavScr · 14.01.2014, 13:17

Подскажите, пожалуйста, исправить ошибку в программе. Данная программа должна проверять входную последовательность на корректность кода.

JavScr · 15.01.2014, 22:55

есть код:

Код:

SymbolToStr: array [sHTML..s_b_tabl_td_en] of string = (
    'HTML', 'HEAD', 'TITLE', 'HEADLINE', 'BODY',
    'CONTENT', 'TABLE0', 'TR0', 'TR_0', 'TD0', 'ATTRIB',
    'eof', 'param', 'str', 'id', '=', '>',
    '<html>','</html>', '<head>','</head>', '<title>','</title>',
    '<body>', '</body>', '<table>', '</table>','<tr>', '</tr>',
    '<td>', 'op','</td>');

var
  stack: array [1..100] of Symbol;
  p_s: integer;

function StrToSymbol(value: string): Symbol;
begin
 for Result := sHTML to s_b_tabl_td_en do
  if SymbolToStr[Result] = value then Exit;

 raise Exception.Create('Ошибка в StrToSymbol: '+ value);
end;

function LexToSymbol(value: integer): Symbol;
const
  LtS: array[s_id..s_b_tabl_td_en] of Symbol = (
    s_id, s_param, s_str, s_html_st,
    s_html_en, s_h_st, s_h_en, s_t_st, s_t_en,
    s_b_st, s_b_en, s_b_tabl_st, s_b_tabl_en,
    s_b_tabl_tr_st, s_b_tabl_tr_en, s_b_tabl_td_st, s_op,
    s_b_tabl_td_en );
begin
 case value of
   s_id..s_b_tabl_td_en: Result := LtS[value];
   _eof: Result := s_eof;
   ord('>'): Result:=s_zak;
   ord('='): Result:=s_rav;
    else raise Exception.Create('LexToSymb '+ IntToStr(value));
 end;
end;

понятно, что ошибка в строке:

Код:

  s_id..s_b_tabl_td_en: Result := LtS[value];

подскажите, как правильно написать?

Utkin · 16.01.2014, 12:19

Я так понял тебе надо преобразовать Symbol в Integer сначала, это если ошибка действительно там.
Вероятно делфи не нравится что в value может содержаться число, превышающее диапазон Symbol.

Аватар · 16.01.2014, 13:01

Код:

Integer(s_id)..Integer(s_b_tabl_td_en): Result := LtS[Symbol(value)];

JavScr · 16.01.2014, 17:12

как понять данные ошибки?

northener · 16.01.2014, 17:37

Access Violation в деталях

Utkin · 17.01.2014, 21:19

Для Memo конструктор вызывался? Покажите код создания Мемо. Или это компонент на форме?

JavScr · 17.01.2014, 21:28

Цитата:

Сообщение от Utkin

Для Memo конструктор вызывался? Покажите код создания Мемо. Или это компонент на форме?

в начале темы приложена сама программа

JavScr · 20.01.2014, 19:28

никто не может помочь понять, в чем ошибка хотя бы?

Аватар · 20.01.2014, 19:40

Цитата:

в начале темы приложена сама программа

Очень интересно в чужих исходниках копаться. По поводу ошибки - очень похоже, что мемо не создано

16.01.2014, 12:19	#3
Utkin Старожил Регистрация: 04.02.2009 Сообщений: 17,351	Я так понял тебе надо преобразовать Symbol в Integer сначала, это если ошибка действительно там. Вероятно делфи не нравится что в value может содержаться число, превышающее диапазон Symbol. Маньяк-самоучка Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика

16.01.2014, 13:01	#4
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `Integer(s_id)..Integer(s_b_tabl_td_en): Result := LtS[Symbol(value)];` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

17.01.2014, 21:19	#7
Utkin Старожил Регистрация: 04.02.2009 Сообщений: 17,351	Для Memo конструктор вызывался? Покажите код создания Мемо. Или это компонент на форме? Маньяк-самоучка Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Курсовая "Компилятор для подмножества языка Паскаль"(За вознаграждение)	User313	Фриланс	4	04.12.2013 11:11
Компилятор с подмножества языка ruby	xz2raza	Фриланс	0	08.05.2011 13:54
html проблема разметки	world12_tk	HTML и CSS	2	22.09.2010 20:27
Интерпретатор заданного языка	DaNiemand	Помощь студентам	2	07.09.2010 14:56
интерпретатор машинного языка	Hellgrom	Паскаль, Turbo Pascal, PascalABC.NET	0	02.05.2009 18:46

16.01.2014, 17:37	#6
northener ПШП Участник клуба Регистрация: 15.07.2013 Сообщений: 1,926	Access Violation в деталях

20.01.2014, 19:28	#9
JavScr Пользователь Регистрация: 12.11.2013 Сообщений: 39	никто не может помочь понять, в чем ошибка хотя бы?