Анализ символов введённых в memo

[rachina]

Доброго времени суток!
Пишу лексический анализатор. С горем пополам смог определить идентификаторы, числа, служебные слова и арифметические знаки. осталось определить знак присвоения (:=)
всё (почти) делаю через константы)


чуть ниже приведён фрагмент кода.

procedure TForm1.Button1Click(Sender: TObject);
const
  // разделители
  D = [' ','(', ')'];
 
  ident =['a'..'z','_']+['0'..'9'];
   ident_ =['a'..'z','_'];
  prisvo = '++';
   oper =['+','-'];
 
   var
swp, result, S, sW, sWL : String;
  i, i1,i3, Pos1, Len, LenW, errorPos,errorPos1, n,q : Integer;
  float :real;
  ReservedWords :TStringList;
  bred: Tstringlist;
  Found :Boolean;
 
begin
   memo2.clear;
 
  S := Memo1.Text; // чтоб определить длину введенного текста
  len:=0;
   Len := Length(S);
  Pos1 := 0;
  for i := 1 to Len do
  begin
    Found:=False;
    if S[i] in D then Continue; // чтобы со спокойной душой пропускать разделители
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    if (i = Len) or (S[i + 1] in D) then
    begin
 
      LenW := i - Pos1+1; // здесь определяем длину слова
      sW := Copy(S, Pos1, LenW); //конкретное слово
 
 
/// для примера: здесь я определяю, что введены числа (слава функции val)
 Val(sW, float, errorPos);
 
      if errorPos = 0 Then
      begin
 
      for i1:=0 to  Memo1.Lines.Count-1 do
    begin
     memo2.lines.add(sw+ ' число');
     found:=true;
    break;
 
end; end else  ....
// тут арифметические знаки
 end else
          if s[i] in oper then
      for i1:=0 to  Memo1.Lines.Count-1 do
    begin
     memo2.lines.add(sw+ ' арифметический знак');
     found:=true;
       break;
     end;
      end;
    end else begin
 
// ну а вот отсюда начинается веселье))
       if s[i]=prisvo then
      for i1:=0 to  Memo1.Lines.Count-1 do
    begin
     memo2.lines.add(sw+ '  присвоение');
     found:=true;
       break;
     end;
 
    end;
    end;
end;

уж пробовал из списка в файле загружать и просто s[i] присваивать "присвоение", и что угодно - и ничего. не желает он воспринимать символ, состоящий из 2-х и более спецсимволом(
будьте добры, помогите неумехе

[Pavia]

не желает он воспринимать символ, состоящий из 2-х и более спецсимволом(

Феерично! Это всё равно что требовать налить в чашку две полных чашки воды. конечно не получится.

Сравнивайте текущий символ с первым и следующий со вторым.

Код выложен, как есть. Он не претендует на идеальность.

[min@y™]

Ну дык, если k-й символ = ":" и а следующий = "=", то лексема - знак присваивания.
Вообще, разбей анализ на несколько проверок.

// говнокод
function IsAssignment(var ptr: PChar): Boolean;
begin
  Result:= p^ = ':'; 
  Inc(p);
  Result:= Result and (p^ = '=');
  Inc(p);
end;

А ещё лучше - изучи вот это (очень сложная и скучная хрень).

[rachina]

спасибо большое) а на счёт автоматов - верно сказано!

с помощью лекса это всё проще выглядит и делается