Advertisement
r4lovets

shit

Oct 2nd, 2019
491
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 2.25 KB | None | 0 0
  1. //  while i < len do
  2. //  begin
  3. //    if (s[i] in Chars) then
  4. //    begin
  5. //      word := GetWord(s, i);
  6. //
  7. //      if not IsBelong(word, Reserved) then  // Если не принадлежит зарезервированным
  8. //      begin
  9. //        if IsBelong(word, OtherLiterals) then // Если литералы true/false/null
  10. //        begin
  11. //          operands[operandIndex] := word;
  12. //          Inc(operandIndex);
  13. //        end
  14. //        else if word in Types then   // Если это тип данных
  15. //        begin
  16. //          while not s[i] in Chars do
  17. //          begin
  18. //            Inc(i);
  19. //          end;
  20. //
  21. //          word := GetWord(s, i);
  22. //
  23. //          if s[i] = '(' then       // Если скобка, значит это функция
  24. //          begin
  25. //            operators[operatorIndex] := word + '()';
  26. //            Inc(operatorIndex);
  27. //            Inc(i);
  28. //          end
  29. //          else                    // Если нету скобки, значит, переменная
  30. //          begin
  31. //            if (s[i] = ';') or (s[i] = ')') then
  32. //            begin
  33. //              Inc(operandIndex);
  34. //              operands[operandIndex] := word;
  35. //            end
  36. //            else
  37. //            begin
  38. //              while not s[i] in Chars do
  39. //                begin
  40. //                  Inc(i);
  41. //                end;
  42. //            end;
  43. //          end;
  44. //        end
  45. //        else if s[i + 1] = '.' then     // Если объект
  46. //        begin
  47. //          operands[operandIndex] := word;
  48. //          Inc(operandIndex);
  49. //          operators[operatorIndex] := '.';
  50. //          Inc(operatorIndex);
  51. //        end;
  52. //      end;
  53. //    end
  54. //    else if s[i] in digits then          // Численный литерал
  55. //    begin
  56. //      operands[operandIndex] := GetNumber(s, i);
  57. //      Inc(operandIndex);
  58. //    end
  59. //    else if s[i] = '''' then     // Символ
  60. //    begin
  61. //      operands[operandIndex] := GetCharacter(s, i);
  62. //      Inc(operandIndex);
  63. //    end
  64. //    else if s[i] = '"' then          // Строка
  65. //    begin
  66. //      operands[operandIndex] := GetString(s, i);
  67. //      Inc(operandIndex);
  68. //    end;
  69. //
  70. //    while s[i] = ' ' do
  71. //    Inc(i);
  72. //  end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement