О чём не пишут в книгах по Delphi

function Func(const FuncName, S: string; var Integer): Extended;

var

 Arg: Extended;

begin

 // Вычисляем аргумент

 Arg := Expr(S, P);

 // Сравниваем имя функции с одним из допустимых

 if AnsiCompareText(FuncName, 'sin') = 0 then

  Result := Sin(Arg)

 else if AnsiCompareText(FuncName, 'соs') = 0 then

  Result := Cos(Arg)

 else if AnsiCompareText(FuncName, 'ln') = 0 then

  Result := Ln(Arg)

 else

  raise ESyntaxError.Create('Неизвестная функция ' + FuncName);

end;

// Выделение из строки идентификатора и определение,

// является ли он переменной или функцией

function Identifier(const S: string: var P: Integer): Extended;

var

 InitP: Integer;

 IDStr, VarValue: string;

begin

 // Запоминаем начало идентификатора

 InitP := P;

 // Первый символ был проверен ещё в функции Base.

 // Сразу переходим к следующему

 Inc(P);

 while (P <= Length(S)) and

  (S[P] in ('A'..'Z', 'a'..'z', '_', '0'..'9']) do

  Inc(P);

 // Выделяем идентификатор из строки

 IDStr := Copy(S, InitP, P - InitP);

 // Если за ним стоит открываемая скобка — это функция

 if (Р <= Length(S)) and (S[P) - '(' then

 begin

  Inc(P);

  Result := Func(IDStr, S, P);

  // Проверяем, что скобка закрыта

  if (Р > Length(S)) or (S[P] <> ')') then

   raise ESyntaxError.Create(

    'Ожидается ")" в позиции ' + IntToStr(P));

  Inc(P);

 end

 // если скобки нет - переменная

 else

 begin

  VarValue := Form1.ListBoxVars.Items.Values[IDStr];

  if VarValue = '' then

   raise ESyntaxError.Create(

    'Необъявленная переменная ' + IDStr +

    ' в позиции ' + IntToStr(P))

  elsе Result := StrToFloat(VarValue);

 end;

end;

// Выделение подстроки, соответствующей ,

// и ее вычисление

function Base(const S: string; var P: Integer): Extended;

begin

 if P > Length(S) then

  raise ESyntaxError.Create('Неожиданный конец строки');

 // По первому символу подстроки определяем,

 // какое это основание

 case S[P] of

 '(': // выражение в скобках

 begin

  Inc(Р);

  Result := Expr(S, Р);

  // Проверяем, что скобка закрыта

  if (Р > Length(S)) or (S[P) <> ')') then

   raise ESyntaxError.Create(

    'Ожидается ")" в позиции ' + IntToStr(Р));

  Inc(Р);

 end;

'0'..'9': // Числовая константа

  Result := Number(S, P);

 'A'..'Z', 'a'..'z', '_': // Идентификатор (переменная или функция)

  Result := Identifier(S, P);

 else

  raise ESyntaxError.Create(

   'Некорректный символ в позиции ' + IntToStr(Р));

 end;

end;

// Выделение подстроки, соответствующей ,

// и ее вычисление

function Factor(const S: string; var P: Integer): Extended;

begin

 if P > Length(S) then

  raise ESyntaxError.Create('Неожиданный конец строки');

 // По первому символу подстроки определяем,

 // какой это множитель

 case S[P] of

 '+'; // унарный "+"

 begin

  Inc(Р);

  Result := Factor(S, P);

 end;