|
|
#1
|
||||
|
||||
Калькулятор
Всем привет. Вот хотел присвоить переменной реал типа через strtofloat введённое выражение типа 2*3-5 и т.п. Но пишет ошибку выражения не конвертирует. Помогите пожалуйста.
Delphi 7. |
#2
|
||||
|
||||
можно посчитать значение выражения через IScriptControl. метод Eval. подробнее уже есть на форуме.
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Цитата:
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#5
|
||||
|
||||
Цитата:
|
#6
|
||||
|
||||
Цитата:
|
#7
|
||||
|
||||
Код:
with CreateComObject(CLASS_ScriptControl) as IScriptControl do begin Language:='JScript'; ShowMessage(Eval('2*3-5')); end; Пишу программы за еду. __________________ |
#8
|
||||
|
||||
Цитата:
Я спрашивал у UnrealFire как он "сделал по другому" |
#9
|
||||
|
||||
но можно и так:
Код:
.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'); Пишу программы за еду. __________________ |
#10
|
|||
|
|||
Цитата:
|