ошибки не пойму((. Таблично управляемый синтаксический разбор сверху вниз

[Huligan799]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, lexlib, tt, StdCtrls;

type
   symb = (goal, switch1, case2, case1, term, break1, sw,
         aa, cas, coun, br, num, eof);


  TForm1 = class(TForm)
    Button1: TButton;

     function strtosymb:symb;
     function lextosymb:symb;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;


const
Mtable : array [goal..break1, sw..eof] of string=
(('switch1 sw','er', 'er', 'er', 'er', 'er', 'er'),
 ('er','case2 aa', 'er', 'er', 'er', 'er', 'er'),
 ('er', 'er', 'case1 cas','er', 'er', 'er', ''),
 ('er', 'er', 'er', 'term num', 'er', 'er', 'er'),
 ('er', 'er',   'er',  'er',  'break1 case2 coun',  'er',  'er'),
 ('er', 'er',  'er', 'er', 'er', 'br', '')
);


var
  Form1: TForm1;
  stack:array [1..100] of symb;
  p_s:integer;
implementation

{$R *.dfm}


 function TForm1.lextosymb(value:integer): symb;
begin
case value of
num: result:=num;
sw:result:=switch;
aa:result:=a;
cas:result:=cas;
coun:result:count<<ok;
br:result:=break;
end;
end;


function TForm1.strtosymb: symb;
begin
if value='goal' then result:=goal;
if value='switch1' then result:=switch1;
if value='case2' then result:=case2;
if value='case1' then result:=case1;
if value='term' then result:=term;
if value='break1' then result:=break;
if value='sw' then result:=sw;
if value='aa' then result:=aa;
if value='cas' then result:=cas;
if value='coun' then result:=coun;
if value='br' then result:=br;
if value='num' then result:=num;
end;







begin
  procedure push (value: symb);
begin
  inc(p_s);
  stack[p_s]:=value;
end;

procedure pop;
begin
  dec(p_s);
end;
procedure TForm1.Button1Click(Sender: TObject);

begin
 // yymemoinit(memo1, memo3, memo3, memo3);
  yyclear;
  yylineno:=0;
  token:=yylex;
  if GOAL
  then ShowMessage('Uspeh')
  else ShowMessage('Neudacha');


end;

end;

[Stilet]

Какого рода ошибка? Каков текст ошибки? Проходил ли трассировкой по программе?

[Huligan799]

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

Какого рода ошибка? Каков текст ошибки? Проходил ли трассировкой по программе?

там не одна ошибка)) легче было бы если бы вы запустите и посмотритеесли не составит труда

[superedward]

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

function TForm1.strtosymb: symb;
begin
if value='goal' then result:=goal;
...
end;

Что за переменная value и откуда она взялась?
Сдается мне, код даже компиляцию не проходит...

[evg_m]

там не одна ошибка))

ошибки исправляются по одной за раз.(Как правило).

легче было бы если бы вы запустите и посмотрит

Сдается мне, код даже компиляцию не проходит...

первая попытка "компиляции". и ПЕРВАЯ ошибка для исправления.

  TForm1 = class(TForm)
    Button1: TButton;

     function strtosymb:symb;
     function lextosymb:symb;

function TForm1.lextosymb(value:integer): symb;

Список параметров и тип значения должен быть идентичен с точностью до именования.
После исправления всех ошибок данного типа посмотрим дальше.
может быть сделаем еще одну "компиляцию".
НО учтите, количество наших компиляций ОЧЕНЬ ограничено.

[Huligan799]

Спасибо огромное всем.)) Я еще чайник. Теперь последнюю устранить не могу((

[evg_m]

еще раз ТЕКСТ ОШИБКИ в студию(на форум) и КУСОК кода с указанием к какой строке из приведенных относится данная ошибка.

Какого рода ошибка? Каков текст ошибки?

У вас текст ошибки есть, но вам ЛЕНЬ его переписать (или даже скопировать),
А нам лень качать, компилировать и ...

НО учтите, количество наших компиляций ОЧЕНЬ ограничено.

P.S. погулял по сайту и ...
О.БОЖЕ! Вы потеряли свой проект "написанный" месяц назад и начали все снова? Зайдите в старую тему и скачайте!
Или потеряли надежду довести тот проект и начали снова и с теми же (или похожими) ошибками? Возьмите учебник!(именно учебник а не самоучитель за 21 день)

В любом случае будет быстрее.