С 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)]) }
|