Netspirit писал(а):
Разве не подходит?На кой черт начинающему FastMathParse, который под FPC не работает

Вот самый простой вариант для начинающего
Add(MainForm,5276321,189,308)
{
Width=306
Height=156
}
Add(Edit,13416691,252,280)
{
Left=5
Top=10
Width=110
Text="10"
DataType=4
}
Add(Edit,12485606,301,280)
{
Left=180
Top=10
Width=110
Text="2.2"
DataType=4
}
Add(Edit,14270391,350,350)
{
Left=180
Top=50
Width=110
Text=""
DataType=4
}
Add(Label,9147441,252,231)
{
Left=115
Top=15
Width=58
Height=17
Caption="% от числа"
}
Add(Label,5020040,301,231)
{
Left=105
Top=50
Width=55
Height=17
Caption="результат"
}
Add(Button,974589,189,350)
{
Left=40
Top=90
Width=220
Caption="Вычислить"
link(onClick,8697959:doOperation,[])
}
Add(Math,8697959,252,350)
{
OpType=3
Op2=100
link(onResult,2930793:doOperation,[])
link(Op1,13416691:Text,[])
}
Add(Math,2930793,301,350)
{
OpType=2
link(onResult,14270391:doText,[])
link(Op1,12485606:Text,[])
}