Вверх ↑
Ответов: 44
Рейтинг: 0
#1: 2019-08-17 15:01:17 ЛС | профиль | цитата
Последовательность вставки элементов в программу влияют на работу программы?

--- Добавлено в 2019-08-17 15:32:08



Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,126,105)
{
Width=823
Height=601
link(onCreate,9870318:doEnabled,[])
}
Add(StrList,16119185,567,63)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
Point(String)
Point(doReplace)
}
Add(Button,9870318,259,119)
{
@Hint=#13:Кнопка расчет|
Left=370
Top=520
Width=100
Height=30
Font=[Times New Roman,14,0,0,204]
Enabled=1
Name="Расчет"
Caption="Расчет"
Point(doEnabled)
link(onClick,8382913:doWork1,[(324,125)(324,230)])
AddHint(-106,67,89,13,@Hint)
}
Add(Label,4019049,497,385)
{
Left=75
Top=230
Width=235
Height=25
link(Text,12727791:Var2,[(503,299)(636,299)])
}
Add(ChanelToIndex,8382913,357,224)
{
link(onIndex,8618945:doIndex,[])
}
Add(GetIndexData,8618945,427,224)
{
link(onIndex,13823871:doOperation,[])
link(Data1,12929573:Var,[])
link(Data2,12727791:Var1,[(440,208)])
}
Add(GlobalVar,12929573,427,168)
{
Name="0"
Data=Integer(0)
}
Add(Math,13823871,518,224)
{
@Hint=#5:Op2=1|
Op2=1
ResultType=0
link(onResult,10496451:doValue,[(614,230)(614,167)])
link(Op1,8618945:Var,[(524,212)(478,212)(478,268)(433,268)])
AddHint(-19,-63,47,13,@Hint)
}
Add(Memory,10496451,679,161)
{
link(onData,15951530:doEvent1,[])
}
Add(Hub,15951530,742,161)
{
link(onEvent1,16344848:doOperation,[(805,167)(805,292)(618,292)(618,398)])
link(onEvent2,4019049:doText,[(784,174)(784,277)(485,277)(485,391)])
}
Add(Math,16344848,630,392)
{
@Hint=#5:Op2=1|
Op2=1
ResultType=0
link(onResult,6686851:doCompare,[])
link(Op1,7110170:Var2,[(636,302)(650,302)])
AddHint(-92,47,47,13,@Hint)
}
Add(If_else,6686851,749,392)
{
Type=4
link(onFalse,15080711:doRead,[(814,405)(814,398)])
link(Op1,16344848:Result,[(755,380)(695,380)(695,436)(636,436)])
link(Op2,16119185:Count,[(762,243)(580,243)])
}
Add(ArrayRW,15080711,847,392)
{
link(onRead,8382913:doWork2,[(891,398)(891,318)(345,318)(345,237)])
link(Array,16119185:Array,[(853,138)(587,138)])
link(Index,11890981:Var2,[(860,302)(671,302)])
}
Add(GetDataEx,12727791,630,203)
{
Angle=1
link(Data,7110170:Var1,[])
}
Add(GetDataEx,7110170,644,203)
{
Angle=1
link(Data,11890981:Var1,[])
}
Add(GetDataEx,11890981,665,203)
{
Angle=1
link(Data,10496451:Value,[(685,208)])
}
Такая программа работает. Значит у меня в программе чем-то неправильно.
Моя программа работает только с ArrayEnum.
карма: 0

0
Редактировалось 1 раз(а), последний 2019-08-17 15:32:08