39;); (tree_i); _t: = tree_i;: = yylex;: = ft_en;: = false;; TForm2.fh_st: boolean; token = h_st then.Items.AddChild (TreeView1 . Items.Item [0], ' '); (tree_i);: = yylex;: = ft_st and fh_en;: = true;; TForm2.fhtml_st: boolean; token = html_st then . Items.Clear;. Items.Add (nil, ' ');: = yylex;: = fh_st and fb_st and fhtml_en; result: = false;; TForm2.fglav: boolean;: = fhtml_st;; TForm2.Button1Click (Sender: TObject); _i: = 0;. Clear;; (memo1, memo2, memo3, memo4);: = 0;: = yylex; fglav and (token = 0) then p>
begin.Panels [0]. Text: = 'Перевірка коду виконана успішно';
StatusBar1.Panels [1]. Text: = 'Дерево побудовано';. Panels [0]. Text: = 'Помилка перевірки коду';
StatusBar1.Panels [1]. Text: = 'Помилка при побудові дерева';
showmessage ('Помилка!');;; TForm2.FormCreate (Sender: TObject);: = TList.Create;; TForm2.FormShow (Sender: TObject);. SetFocus;;. p>