Вверх ↑
Ответов: 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