О чём не пишут в книгах по 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;