[UnrealFire]

Всем привет. Вот хотел присвоить переменной реал типа через strtofloat введённое выражение типа 2*3-5 и т.п. Но пишет ошибку выражения не конвертирует. Помогите пожалуйста.

Delphi 7.

[NumLock]

можно посчитать значение выражения через IScriptControl. метод Eval. подробнее уже есть на форуме.

[M.A.D.M.A.N.]

Сообщение от NumLock

IScriptControl

LOL , крутое программирование получается

[NumLock]

Сообщение от M.A.D.M.A.N.

LOL , крутое программирование получается

да, две строчки кода всего

[UnrealFire]

Сообщение от NumLock

можно посчитать значение выражения через IScriptControl. метод Eval. подробнее уже есть на форуме.

спасибо но сделал по другому. тема закрыта.

[poli-smen]

Сообщение от UnrealFire

спасибо но сделал по другому. тема закрыта.

Так напиши здесь как сделал - может кому-то ещё пригодится.

[NumLock]

Код:

  with CreateComObject(CLASS_ScriptControl) as IScriptControl do
  begin
    Language:='JScript';
    ShowMessage(Eval('2*3-5'));
  end;

[poli-smen]

Сообщение от NumLock

Код:

  with CreateComObject(CLASS_ScriptControl) as IScriptControl do
  begin
    Language:='JScript';
    ShowMessage(Eval('2*3-5'));
  end;

Это я знаю
Я спрашивал у UnrealFire как он "сделал по другому"

[NumLock]

но можно и так:

Код:

.ExecuteStatement('Edit1.Tag=Edit1.Tag / 2');

Код:

.ExecuteStatement('Edit1.Text = "*" + Edit1.Text + "*"');

Код:

.ExecuteStatement('Memo1.Lines(1)="ok"');

Код:

.ExecuteStatement('Memo2.Align="alRight"');

Код:

.ExecuteStatement('Memo2.Visible=!Memo2.Visible');

[robt]

Сообщение от UnrealFire

Всем привет. Вот хотел присвоить переменной реал типа через strtofloat введённое выражение типа 2*3-5 и т.п. Но пишет ошибку выражения не конвертирует. Помогите пожалуйста.

Delphi 7.

LOL эта функция конвертит строку в число, она не решает выражения