Синтаксический анализатор

[s-andriano]

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

Насчёт пробелов вы тоже правы, если в мемо1 сделаю между словами 2 пробела, выдаст ошибку, хотя это не является ошибкой.
Как решить проблему?

Зачем Вы задаете вопросы, если не хотите читать на них ответы?
Я об этом уже писал в посте №10.

[Arturko]

Я плохо знаю программирование, а вы говорите загадками, не хотите на пальцах объяснить, простите...
Пока сделал вот так, не всё конечно учтено, но хоть что-то...

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
    i,x:integer;
begin
  x:=0;
  s1:='if (CEdit1.Text='''') and (Kedit2.Text='''') then begin ShowMessage(''Please enter data''); exit end;';
  s2:=Memo1.Text;
  i:=1;
  while i<Length(s1) do
    begin
        if (s2[i]=' ') and (s2[i+1]=' ') then Delete(s2,i,1) else inc(i);
    end;
  for i:=1 to Length(s1)+1 do
    begin
      if s1[i]<>s2[i] then
        begin
          x:=1;
          if (i>=1) and (i<=3) then ShowMessage('Incorrect ''if''');
          if (i=4) or (i=25) or (i=64) then ShowMessage('( expected');
          if (i=19) or (i=40) or (i=84) then ShowMessage(') expected');
          if (i=85) or (i=95) then ShowMessage('; expected');
          if (i>=5) and (i<=16) then ShowMessage('Incorrect CEdit1.Text=''''');
          if (i>=20) and (i<=24) then ShowMessage('Incorrect ''and''');
          if (i>=26) and (i<=37) then ShowMessage('Incorrect Kedit2.Text=''''');
          if (i>=41) and (i<=45) then ShowMessage('Incorrect ''then''');
          if (i>=46) and (i<=51) then ShowMessage('Incorrect ''begin''');
          if (i>=52) and (i<=63) then ShowMessage('Incorrect ''ShowMessage''');
          if (i>=87) and (i<=90) then ShowMessage('Incorrect ''exit''');
          if (i>=91) and (i<=94) then ShowMessage('Incorrect ''end''');
          if (i>96) then ShowMessage('Incorrect end of code');
          if (i>=66) and (i<=82) then ShowMessage('No errors.');
          if (i=86) then ShowMessage('No errors.');
          if (i>=65) and (i<=83) then ShowMessage(''' expected');
          break;
        end;
    end;
    if x=0 then ShowMessage('No errors.');

end;

[s-andriano]

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

Я плохо знаю программирование, а вы говорите загадками, не хотите на пальцах объяснить, простите...

Уточните, Вы плохо знаете программирование или плохо знаете русский язык?
Вроде, специально стараюсь писать по-русски, не используя вставок на ЯП. Чего ж Вам еще надо?
В моем посте №10 я писал:

удалить лишние пробелы

после чего в Вашем посте №17 читаю:

сделаю между словами 2 пробела, выдаст ошибку, хотя это не является ошибкой

Откуда я делаю вполне естественный вывод, что мой пост №10 Вы не читали.
И покажите, пожалуйста, где именно я говорю загадками.

И еще по поводу удаления пробелов:
там, где есть скобки или другие разделители, допускается как наличие, так и отсутствие пробелов, поэтому желательно такие пробелы тоже удалить (включая исходную строку).

[Utkin]

Нормализуйте строку - замените все "нехорошие" символы (например символ табуляции) на пробел. Затем сделайте так, чтобы в строке не встречалось более двух пробелов подряд (естественно нужно учитывать выражения в кавычках - строковые константы).
Далее все последовательности символов разделенных между собой заталкайте в динамический массив. Так Вы получите лексемы. Затем в большинстве случаев (но не всегда) анализ первой лексемы дает уже понять что же перед нами за оператор (в нашем случае это будет if). Ставите какой-нибудь селектор (например, используете case) и вперед - рассматриваете работу каждого оператора в отдельности. Ну вкратце как-то так.

[Sparky]

могу поделиться своим в качестве примера, но вечером, сейчас на работе

[Arturko]

Спасибо за ответы. Сейчас тоже убегаю, но мысль понял, вечером скину что получится.
Utkin ваш вариант выглядит наиболее правильным.
Sparky любые исходники могут помочь, спасибо.

[Arturko]

Я прав, что в моём случае лексемы будут такие?:

if 
(
CEdit1.Text
=
'
)
and
Kedit2.Text
then
begin
ShowMessage
; 
exit 
end

А как мне каждое слово из строки представить элементом массива?

[Arturko]

Я введённую строку пытаюсь разбить на лексемы, т.е хочу что бы перед и после скобки, точки, точки с запятой,знака равно, апострофа, поставились пробелы. Если я преобразую так строку потом все слова я смогу занести в массив. Я делаю так:

s2:=Memo1.Text;
i:=1;
while i<= Length(s2) do
begin
if (s2[i]='(') or (s2[i]='=') or (s2[i]='''') or (s2[i]=';') or (s2[i]='.')then
begin
s2[i-1]:=' ';
s2[i+1]:=' ';
end;
inc(i);
end;
ShowMessage(s2);

Но после нажатия GO, получаю такой ответ преобразованной строки:

Потерялись некоторые символы, не понимаю почему. Объясните пожалуйста.

[BDA]

Потому что таким образом вы не вставляете символы, а "затираете" существующие.
Имхо, нужно "идти" по строке и командой copy "выдирать" куски.

[Arturko]

Вспомнил про процедуру insert, всё ок, сейчас дальше буду думать