Анализ текста, введённого в memo

[rachina]

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


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

procedure TForm1.Button1Click(Sender: TObject);
const
  // разделители
  D = [' ','(', ')'];
 
  ident =['a'..'z','_']+['0'..'9'];
   ident_ =['a'..'z','_'];
  prisvo = '++';
   oper =['+','-'];
    cifra = ['0'..'9']+[',']+['0'..'9'];  // как раз для определения цифр с запятой ввёл
 
   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 copy(s,i,2)=prisvo then begin
      for i1:=0 to  Memo1.Lines.Count-1 do
    begin
     memo2.lines.add(prisvo+ '  присвоение');
     found:=true;
       break;
     end;  
 
end  else
 
// вот отсюда начинается веселье
       if sw[i] in cifra then begin
       for i1:=0 to  Memo1.Lines.Count-1 do
    begin
     memo2.lines.add(sw+ '  тоже число');
     found:=true;
       break;
     end;      
 
    end;
    end;
end;

пытался работать также, как и с определением идентификатора, но что-то как-то не задалось.
для чисел, записанных через точку или для целых чисел пригодилась функция val, а что тут делать? подскажите, пожалуйста

[northener]

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

для чисел, записанных через точку или для целых чисел пригодилась функция val, а что тут делать? подскажите, пожалуйста

Перед вызовом процедуhы Val вызывать процедуру
StringReplace
Дабы заменить запятую или точку но тот символ, который установлен в системе как разделитель целой и дробной части вещественного числа.
RTFM DecimalSeparator

[rachina]

спасибо))
DecimalSeparator - вообще открыл для себя что-то новое!!!

[northener]

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

спасибо))
DecimalSeparator - вообще открыл для себя что-то новое!!!

Да не за что.
Будет время, прошерсти RTFM. Там есть ещё несколько сепараторов, знание которых может потребоваться в дальнейшем.

[rachina]

хорошо! очень дельный совет))