Вверх ↑
Ответов: 60
Рейтинг: 0
#1: 2020-05-26 11:43:36 ЛС | профиль | цитата
С fpc-32 вроде нормально.
Пример программы:


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,168,112)
{
}
Add(Edit,16493221,280,63)
{
Left=100
Top=25
Width=90
Text="0"
DataType=4
}
Add(Label,114522,231,105)
{
Left=30
Top=30
Width=56
Height=17
Caption="Интервал:"
}
Add(Button,8784902,259,161)
{
Left=75
Top=120
Caption="Расчет"
link(onClick,6402252:doStart,[(313,167)(313,188)])
}
Add(Label,385250,259,294)
{
Left=215
Top=70
Width=10
Height=17
Caption="0"
}
Add(Label,5293251,189,189)
{
Left=25
Top=70
Width=184
Height=17
Caption="Результаты расчета а=а+интервал:"
}
Add(Button,1716750,266,210)
{
Left=155
Top=120
Width=75
Caption="Стоп расчет"
link(onClick,6402252:doStopFlag,[(317,216)(317,202)])
}
Add(Thread,6402252,336,182)
{
Delay=10
Point(doStopFlag)
link(onExec,8551238:doOperation,[])
}
Add(Math,8551238,406,182)
{
link(onResult,10995022:doValue,[])
link(Op1,3823148:Var2,[(412,160)(286,160)])
link(Op2,9767187:Var1,[(419,170)(451,170)(451,226)])
}
Add(Memory,10995022,476,182)
{
Default=Real(0)
link(onData,4863987:doOperation,[(524,188)(524,153)])
}
Add(Button,1979999,266,357)
{
Left=75
Top=170
Width=105
Caption="Сначало расчета"
link(onClick,10995022:doClear,[(387,363)(387,195)])
}
Add(Math,4863987,539,147)
{
OpType=35
link(onResult,385250:doText,[(590,153)(590,271)(247,271)(247,300)])
link(Op1,9767187:Var3,[(545,132)(468,132)])
link(Op2,3823148:Var3,[(552,135)(420,135)(420,152)])
}
Add(GetDataEx,3823148,280,147)
{
link(Data,16493221:Text,[])
}
Add(GetDataEx,9767187,462,221)
{
Angle=1
link(Data,10995022:Value,[(482,226)])
}

карма: 1

0