FAQ VCL
Com/Ole/ActiveX

:: Меню ::
:: На главную ::
:: FAQ ::
:: Заметки ::
:: Практика ::
:: Win API ::
:: Проекты ::
:: Скачать ::
:: Секреты ::
:: Ссылки ::

:: Сервис ::
:: Написать ::

:: MVP ::

:: RSS ::

Яндекс.Метрика

Как вычислить арифметическое выражение с помощью OLE?

uses
  {...,} ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  sc: Variant;
begin
   sc := CreateOLEObject( 'ScriptControl' );
   try
      sc.Language := 'JavaScript'; // Можно указать язык VBScript
      sc.Timeout := -1;
      sc.AllowUI := true;
      Caption := sc.Eval( '2+2*2' );
   finally
      sc := Unassigned;
   end;
end;

При использовании материала - ссылка на сайт обязательна