Арифметика, выражение вводится строкой [Delphi]

[iFool]

Задача (дословно)
В строке вводиться арифметическое выражение, состоящее из целых чисел и знаков "+" и "-" . Вычислить значение этого выражения.
Требования:: во время ввода или модификации выражения нажатия на клавиши должны быть ограничены (если последней введена цифра, то за ней может быть нажата цифра, знак или пробел; если последним введеным символом явдяется знак, то за ним может быть введены либо пробел, либо цифра; для пробела определить ограничения самостоятельно).

как это реализовывается?

[A_r_r_a_y]

Да все просто, в событии OnKeyPress компонента Edit1 (ну или куда Вы там будете вводить свою строку) задаете ограничения на ввод следующего символа, в зависимости от того какой символ был введен последний.
ну а с самим вычислением, надеюсь ничего непонятного нет.

[A_r_r_a_y]

Хотя в OnKeyPress довольно проблематично будет это реализовать, лучше используйте OnChange и проверяйте предыдущий символ.

[Alter]

Вот:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Const Cif = ['0'..'9'];
      Znk = ['+', '-'];
Var   Al :Set of char;
      I :Integer;
      S :String;
begin
 Al := [];
 Al := Znk + Cif +[' '];
 If (Key in Al+[#8]) then
 begin
  S := TEdit(Sender).Text;
  I := Length(S);
  
  If I>0 then
  If (S[I] in Cif) then //последнее цыфра
  If Not (Key in Al) then //проверка ввода [цыфры,знак,пробел]
   Key := #0;

  If I>0 then
  If (S[I] in Znk) then //последнее знак
  If Not (Key in Al-Znk) then //проверка ввода
   Key := #0;
 end
  else
 Key := #0;
end;