если бы я хотел чтобы вы сделали код, то об этом написал быпо ini я уже додумался сам как правильно сделать -правда кривовато, но уже что-то
весь день думал над этим, чуть позже выложу код
так не считайте меню нахлебником. мне легче на примерах смотреть процесс кода.
------------ Дoбавленo в 14.31:
Вот код до которого я на ваших примерах и примерах программы додумался
Суть заключается в том, что имеется несколько календарей, где при выборе даты первого календаря в результате математических вычислений к первоначальной дате добавляется несколько дней и результат появляется в последующих календарях. Для того, чтобы математические вычисления осуществлялись я добавил два поля ввода, в которых указываю интервал в днях. Тем самым эти два поля являются операндами для математического суммирования. При этом я сумел прикрутить ini для того, чтобы значения выбранных календарей сохранялись, но вот не получается сохранить значения полей. Вот тут мне нужн ваша подсказка - либо вводить дополнительный ini или текстовые поля заводить на самый первый календарь.Не ругайтесь за громоздкость конструкции кода, я тока начинаю изучать программу
))Add(MainForm,8799802,35,42)
{
Width=851
Height=750
Point(onClose)
link(onCreate,8735826:doEvent1,[])
link(onClose,10808718:doWrite,[(69,69)(69,202)(102,202)(102,160)])
}
Add(DatePicker,5811906,315,147)
{
Left=40
Top=30
Width=105
Height=21
Point(DateTime)
link(OnChange,1777278:doEvent1,[])
}
Add(Hub,9574330,147,56)
{
OutCount=5
link(onEvent1,10709376:In,[])
link(onEvent2,7297957:In,[(179,69)(179,76)])
}
Add(Hub,1777278,378,147)
{
OutCount=5
link(onEvent1,5269576:In,[])
link(onEvent2,948858:In,[(416,160)(416,167)])
}
Add(DatePicker,10520813,434,385)
{
Left=275
Top=30
Width=105
Height=21
Point(DateTime)
}
Add(Math,7412597,392,385)
{
ResultType=0
link(onResult,10520813:doSetDate,[])
link(Op1,8713921:Var3,[(398,288)])
link(Op2,2535376:Var2,[(405,379)(438,379)])
}
Add(LineBreak,7413748,336,385)
{
Caption="1"
link(Out,6952975:doWork2,[])
Primary=[5269576,105,-238]
}
Add(LineBreak,6441779,336,399)
{
Caption="6"
link(Out,6952975:doWork3,[(375,405)])
Primary=[10709376,-140,-343]
}
Add(HubEx,6952975,371,385)
{
link(onEvent,8664562:doWork2,[])
}
Add(Ini,10808718,119,147)
{
FileName="ini.ini"
Section="check"
Key="1s"
link(onResult,5811906:doSetDate,[])
link(Value,10902406:Var1,[(146,135)(232,135)(232,187)])
}
Add(GetDataEx,10902406,315,182)
{
link(Data,5811906:DateTime,[])
}
Add(Hub,8735826,84,56)
{
OutCount=3
link(onEvent1,9574330:doEvent1,[])
link(onEvent2,10808718:doRead,[(108,69)(108,153)])
}
Add(Button,13228235,182,336)
{
Left=65
Top=140
link(onClick,11180291:doEvent1,[])
}
Add(HubEx,8664562,378,385)
{
link(onEvent,7412597:doOperation,[])
}
Add(Edit,3139609,432,291)
{
Left=65
Top=110
Point(doReadOnly)
link(onChange,3139609:doText2,[(480,297)(480,281)(420,281)(420,304)])
}
Add(Hub,11180291,238,336)
{
link(onEvent1,8664562:doWork1,[(382,342)])
link(onEvent2,10163672:doWork1,[(389,349)])
}
Add(DatePicker,3218623,441,490)
{
Left=155
Top=30
Width=105
Height=21
Point(DateTime)
}
Add(Math,11266547,399,490)
{
ResultType=0
link(onResult,3218623:doSetDate,[])
link(Op1,8713921:Var2,[(405,391)(328,391)])
link(Op2,6162852:Text,[(412,484)(515,484)])
}
Add(LineBreak,8307870,343,490)
{
Caption="2"
link(Out,12187661:doWork2,[])
Primary=[948858,98,-329]
}
Add(LineBreak,14253147,343,504)
{
Caption="7"
link(Out,12187661:doWork3,[(382,510)])
Primary=[7297957,-147,-434]
}
Add(HubEx,12187661,378,490)
{
link(onEvent,10163672:doWork2,[])
}
Add(HubEx,10163672,385,490)
{
link(onEvent,11266547:doOperation,[])
}
Add(Edit,6162852,509,396)
{
Left=60
Top=80
Point(doReadOnly)
link(onChange,6162852:doText2,[(557,402)(557,386)(497,386)(497,409)])
}
Add(GetDataEx,8713921,322,283)
{
Angle=3
link(Data,10902406:Var2,[(321,288)])
}
Add(GetDataEx,2535376,432,329)
{
link(Data,3139609:Text,[])
}
Add(MainForm,8799802,35,42)
{
Width=287
Height=208
Point(onClose)
link(onCreate,8735826:doEvent1,[])
link(onClose,237284:doEvent1,[(93,69)(93,160)])
}
Add(DatePicker,5811906,483,147)
{
Left=120
Top=30
Width=100
Height=21
Point(DateTime)
link(OnChange,1777278:doEvent1,[])
}
Add(Hub,9574330,315,56)
{
OutCount=5
link(onEvent1,10709376:In,[])
link(onEvent2,7297957:In,[(347,69)(347,76)])
}
Add(Hub,1777278,546,147)
{
OutCount=5
link(onEvent1,5269576:In,[])
link(onEvent2,948858:In,[(584,160)(584,167)])
}
Add(DatePicker,10520813,602,385)
{
Left=120
Top=60
Width=100
Height=21
Point(DateTime)
}
Add(Math,7412597,560,385)
{
ResultType=0
link(onResult,10520813:doSetDate,[])
link(Op1,8713921:Var3,[(566,288)])
link(Op2,2535376:Var2,[(573,379)(606,379)])
}
Add(LineBreak,7413748,504,385)
{
Caption="1"
link(Out,6952975:doWork2,[])
Primary=[5269576,105,-238]
}
Add(LineBreak,6441779,504,399)
{
Caption="6"
link(Out,6952975:doWork3,[(543,405)])
Primary=[10709376,-140,-343]
}
Add(HubEx,6952975,539,385)
{
link(onEvent,8664562:doWork2,[])
}
Add(Ini,10808718,287,147)
{
FileName="ini.ini"
Section="check"
Key="1s"
link(onResult,5811906:doSetDate,[])
link(Value,10902406:Var1,[(314,135)(400,135)(400,187)])
}
Add(GetDataEx,10902406,483,182)
{
link(Data,5811906:DateTime,[])
}
Add(Hub,8735826,168,56)
{
OutCount=4
link(onEvent1,9574330:doEvent1,[])
link(onEvent2,10808718:doRead,[(234,69)(234,153)])
link(onEvent3,13368523:doRead,[(221,76)(221,230)])
link(onEvent4,14830999:doRead,[(238,83)(238,440)])
}
Add(Button,13228235,350,336)
{
Left=55
Top=120
link(onClick,11180291:doEvent1,[])
}
Add(HubEx,8664562,546,385)
{
link(onEvent,7412597:doOperation,[])
}
Add(Edit,3139609,600,291)
{
Left=55
Top=60
Point(doReadOnly)
link(onChange,3139609:doText2,[(648,297)(648,281)(588,281)(588,304)])
}
Add(Hub,11180291,406,336)
{
link(onEvent1,8664562:doWork1,[(550,342)])
link(onEvent2,10163672:doWork1,[(557,349)])
}
Add(DatePicker,3218623,609,490)
{
Left=120
Top=90
Width=100
Height=21
Point(DateTime)
}
Add(Math,11266547,567,490)
{
ResultType=0
link(onResult,3218623:doSetDate,[])
link(Op1,8713921:Var2,[(573,391)(496,391)])
link(Op2,15801371:Var2,[(580,484)(683,484)])
}
Add(LineBreak,8307870,511,490)
{
Caption="2"
link(Out,12187661:doWork2,[])
Primary=[948858,98,-329]
}
Add(LineBreak,14253147,511,504)
{
Caption="7"
link(Out,12187661:doWork3,[(550,510)])
Primary=[7297957,-147,-434]
}
Add(HubEx,12187661,546,490)
{
link(onEvent,10163672:doWork2,[])
}
Add(HubEx,10163672,553,490)
{
link(onEvent,11266547:doOperation,[])
}
Add(Edit,6162852,677,396)
{
Left=55
Top=90
Point(doReadOnly)
link(onChange,6162852:doText2,[(725,402)(725,386)(665,386)(665,409)])
}
Add(GetDataEx,8713921,490,283)
{
Angle=3
link(Data,10902406:Var2,[(489,288)])
}
Add(GetDataEx,2535376,600,329)
{
link(Data,3139609:Text,[])
}
Add(Ini,13368523,287,224)
{
FileName="ini.ini"
Section="check"
Key="2s"
link(onResult,3139609:doText,[(467,230)(467,297)])
link(Value,2535376:Var1,[(314,212)(466,212)(466,334)])
}
Add(Hub,237284,140,154)
{
OutCount=3
link(onEvent1,10808718:doWrite,[])
link(onEvent2,13368523:doWrite,[(212,167)(212,237)])
link(onEvent3,14830999:doWrite,[(224,174)(224,447)])
}
Add(Ini,14830999,294,434)
{
FileName="ini.ini"
Section="check"
Key="3s"
link(onResult,6162852:doText,[(502,440)(502,402)])
link(Value,15801371:Var1,[(321,432)])
}
Add(GetDataEx,15801371,677,427)
{
link(Data,6162852:Text,[])
}
Додумал код
но теперь не знаю как сделать так чтобы одновременно сохранялись значения всех календарей и полей. А можно как-то объеденить ini файлы в один?
------------ Дoбавленo в 15.11:
Add(MainForm,8799802,35,42)
{
Width=287
Height=208
Point(onClose)
link(onCreate,8735826:doEvent1,[])
link(onClose,237284:doEvent1,[(93,69)(93,118)])
}
Add(DatePicker,5811906,308,287)
{
Left=120
Top=30
Width=100
Height=21
Point(DateTime)
link(OnChange,1777278:doEvent1,[])
}
Add(Hub,1777278,371,287)
{
link(onEvent1,5269576:In,[])
link(onEvent2,948858:In,[(409,300)(409,307)])
}
Add(DatePicker,10520813,427,448)
{
Left=120
Top=60
Width=100
Height=21
Point(DateTime)
}
Add(Math,7412597,378,448)
{
ResultType=0
link(onResult,10520813:doSetDate,[])
link(Op1,11332629:Var2,[(384,425)(314,425)])
link(Op2,10144277:Var2,[])
}
Add(LineBreak,7413748,322,448)
{
Caption="1.1"
link(Out,6952975:doWork2,[])
Primary=[5269576,112,-161]
}
Add(LineBreak,6441779,322,462)
{
Caption="2.1"
link(Out,6952975:doWork3,[(361,468)])
Primary=[10709376,-154,-434]
}
Add(HubEx,6952975,357,448)
{
link(onEvent,8664562:doWork2,[])
}
Add(Hub,8735826,105,56)
{
OutCount=5
link(onEvent1,10709376:In,[(133,62)(133,34)])
link(onEvent2,7297957:In,[(140,69)(140,48)])
link(onEvent3,4193099:In,[(148,76)(148,62)])
link(onEvent4,908237:In,[(157,83)(157,76)])
link(onEvent5,16408062:In,[])
}
Add(Button,13228235,42,161)
{
Left=55
Top=120
link(onClick,11180291:doEvent1,[])
}
Add(HubEx,8664562,364,448)
{
link(onEvent,7412597:doOperation,[])
}
Add(Edit,3139609,411,396)
{
Left=55
Top=60
Point(doReadOnly)
link(onChange,3139609:doText2,[(451,402)(451,390)(403,390)(403,409)])
}
Add(Hub,11180291,119,161)
{
link(onEvent1,16087620:In,[])
link(onEvent2,7078541:In,[(154,174)(154,181)])
}
Add(DatePicker,3218623,420,553)
{
Left=120
Top=90
Width=100
Height=21
Point(DateTime)
}
Add(Math,11266547,378,553)
{
ResultType=0
link(onResult,3218623:doSetDate,[])
link(Op1,11332629:Var3,[(384,531)(314,531)(314,418)])
link(Op2,4812494:Var2,[])
}
Add(LineBreak,8307870,322,553)
{
Caption="1.2"
link(Out,12187661:doWork2,[])
Primary=[948858,112,-252]
}
Add(LineBreak,14253147,322,567)
{
Caption="2.2"
link(Out,12187661:doWork3,[(361,573)])
Primary=[7297957,-154,-525]
}
Add(HubEx,12187661,357,553)
{
link(onEvent,10163672:doWork2,[])
}
Add(HubEx,10163672,364,553)
{
link(onEvent,11266547:doOperation,[])
}
Add(Edit,6162852,446,501)
{
Left=55
Top=90
Point(doReadOnly)
link(onChange,6162852:doText2,[(494,507)(494,491)(434,491)(434,514)])
}
Add(Ini,13368523,126,448)
{
FileName="ini.ini"
Section="check"
Key="2s"
link(onResult,16055550:In,[])
link(Value,10144277:Var1,[(153,438)])
}
Add(Hub,237284,105,112)
{
OutCount=3
link(onEvent1,1322158:In,[])
link(onEvent2,2241107:In,[(143,125)(143,132)])
link(onEvent3,9384039:In,[(140,132)(140,146)])
}
Add(Ini,14830999,126,553)
{
FileName="ini.ini"
Section="check"
Key="3s"
link(onResult,15700713:In,[])
link(Value,4812494:Var1,[(153,543)])
}
Add(LineBreak,15086216,259,287)
{
Caption="3.1"
link(Out,5811906:doSetDate,[])
Primary=[4653924,-84,49]
}
Add(LineBreak,16407327,364,396)
{
Caption="4.1"
link(Out,3139609:doText,[])
Primary=[16055550,-189,52]
}
Add(LineBreak,3415950,392,501)
{
Caption="5.1"
link(Out,6162852:doText,[])
Primary=[15700713,-217,52]
}
Add(LineBreak,14214288,70,336)
{
Caption="5.1"
link(Out,10808718:doRead,[])
Primary=[4193099,98,-280]
}
Add(LineBreak,6704245,70,448)
{
Caption="5.2"
link(Out,13368523:doRead,[])
Primary=[908237,98,-378]
}
Add(LineBreak,14359808,77,553)
{
Caption="5.3"
link(Out,14830999:doRead,[])
Primary=[16408062,91,-469]
}
Add(LineBreak,2142793,70,350)
{
Caption="6.1"
link(Out,10808718:doWrite,[(106,356)(106,349)])
Primary=[1322158,98,-238]
}
Add(LineBreak,11155099,70,462)
{
Caption="6.2"
link(Out,13368523:doWrite,[(106,468)(106,461)])
Primary=[2241107,98,-336]
}
Add(LineBreak,1840983,77,567)
{
Caption="6.3"
link(Out,14830999:doWrite,[(113,573)(113,566)])
Primary=[9384039,91,-427]
}
Add(GetDataEx,4812494,385,538)
{
Angle=1
link(Data,6162852:Text,[(452,543)])
}
Add(GetDataEx,10144277,385,433)
{
Angle=1
link(Data,3139609:Text,[(417,438)])
}
Add(Ini,10808718,126,336)
{
FileName="ini.ini"
Section="check"
Key="1s"
link(onResult,4653924:In,[])
link(Value,14572329:Var1,[(153,328)])
}
Add(GetDataEx,14572329,308,323)
{
link(Data,5811906:DateTime,[])
}
Add(GetDataEx,11332629,308,413)
{
link(Data,14572329:Var2,[])
}
Add(LineBreak,15675666,322,476)
{
Caption="7.1"
link(Out,8664562:doWork3,[(368,482)])
Primary=[16087620,-154,-315]
}
Add(LineBreak,4269881,322,581)
{
Caption="7.2"
link(Out,10163672:doWork3,[(368,587)])
Primary=[7078541,-154,-406]
}
привел схему в нормальный вид
------------ Дoбавленo в 15.21:
Add(MainForm,8799802,35,42)
{
Width=287
Height=208
Point(onClose)
link(onCreate,8735826:doEvent1,[])
link(onClose,237284:doEvent1,[(93,69)(93,146)])
}
Add(DatePicker,5811906,308,287)
{
Left=120
Top=30
Width=100
Height=21
Point(DateTime)
link(OnChange,1777278:doEvent1,[])
}
Add(Hub,1777278,371,287)
{
link(onEvent1,5269576:In,[])
link(onEvent2,948858:In,[(409,300)(409,307)])
}
Add(DatePicker,10520813,532,476)
{
Left=120
Top=60
Width=100
Height=21
Point(DateTime)
}
Add(Math,7412597,378,476)
{
ResultType=0
link(onResult,15113029:doWork2,[])
link(Op1,11332629:Var2,[(384,453)(314,453)])
link(Op2,10144277:Var2,[])
}
Add(LineBreak,7413748,322,476)
{
Caption="1.1"
link(Out,6952975:doWork2,[])
Primary=[5269576,112,-189]
}
Add(LineBreak,6441779,322,490)
{
Caption="2.1"
link(Out,6952975:doWork3,[(361,496)])
Primary=[10709376,-154,-462]
}
Add(HubEx,6952975,357,476)
{
link(onEvent,8664562:doWork2,[])
}
Add(Hub,8735826,105,56)
{
OutCount=7
link(onEvent1,10709376:In,[(133,62)(133,34)])
link(onEvent2,7297957:In,[(140,69)(140,48)])
link(onEvent3,4193099:In,[(148,76)(148,62)])
link(onEvent4,908237:In,[(157,83)(157,76)])
link(onEvent5,16408062:In,[])
link(onEvent6,10636540:In,[(143,97)(143,104)])
link(onEvent7,4164917:In,[(135,104)(135,118)])
}
Add(Button,13228235,42,224)
{
Left=55
Top=120
link(onClick,11180291:doEvent1,[])
}
Add(HubEx,8664562,364,476)
{
link(onEvent,7412597:doOperation,[])
}
Add(Edit,3139609,411,424)
{
Left=55
Top=60
Point(doReadOnly)
link(onChange,3139609:doText2,[(451,430)(451,418)(403,418)(403,437)])
}
Add(Hub,11180291,119,224)
{
link(onEvent1,16087620:In,[])
link(onEvent2,7078541:In,[(154,237)(154,244)])
}
Add(DatePicker,3218623,532,644)
{
Left=120
Top=90
Width=100
Height=21
Point(DateTime)
}
Add(Math,11266547,378,644)
{
ResultType=0
link(onResult,10497689:doWork2,[])
link(Op1,11332629:Var3,[(384,531)(314,531)(314,446)])
link(Op2,4812494:Var2,[])
}
Add(LineBreak,8307870,322,644)
{
Caption="1.2"
link(Out,12187661:doWork2,[])
Primary=[948858,112,-343]
}
Add(LineBreak,14253147,322,658)
{
Caption="2.2"
link(Out,12187661:doWork3,[(361,664)])
Primary=[7297957,-154,-616]
}
Add(HubEx,12187661,357,644)
{
link(onEvent,10163672:doWork2,[])
}
Add(HubEx,10163672,364,644)
{
link(onEvent,11266547:doOperation,[])
}
Add(Edit,6162852,446,592)
{
Left=55
Top=90
Point(doReadOnly)
link(onChange,6162852:doText2,[(494,598)(494,582)(434,582)(434,605)])
}
Add(Ini,13368523,126,476)
{
FileName="ini.ini"
Section="check"
Key="2s"
link(onResult,16055550:In,[])
link(Value,10144277:Var1,[(153,466)])
}
Add(Hub,237284,105,140)
{
OutCount=5
link(onEvent1,1322158:In,[])
link(onEvent2,2241107:In,[(143,153)(143,160)])
link(onEvent3,9384039:In,[(140,160)(140,174)])
link(onEvent4,9385840:In,[(133,167)(133,186)(143,186)])
link(onEvent5,7178052:In,[(127,174)(127,202)])
}
Add(Ini,14830999,126,644)
{
FileName="ini.ini"
Section="check"
Key="3s"
link(onResult,15700713:In,[])
link(Value,4812494:Var1,[(153,634)])
}
Add(LineBreak,15086216,259,287)
{
Caption="3.1"
link(Out,5811906:doSetDate,[])
Primary=[4653924,-84,49]
}
Add(LineBreak,16407327,364,424)
{
Caption="4.1"
link(Out,3139609:doText,[])
Primary=[16055550,-189,52]
}
Add(LineBreak,3415950,392,592)
{
Caption="5.1"
link(Out,6162852:doText,[])
Primary=[15700713,-217,52]
}
Add(LineBreak,14214288,70,336)
{
Caption="5.1"
link(Out,10808718:doRead,[])
Primary=[4193099,98,-280]
}
Add(LineBreak,6704245,70,476)
{
Caption="5.2"
link(Out,13368523:doRead,[])
Primary=[908237,98,-406]
}
Add(LineBreak,14359808,77,644)
{
Caption="5.3"
link(Out,14830999:doRead,[])
Primary=[16408062,91,-560]
}
Add(LineBreak,2142793,70,350)
{
Caption="6.1"
link(Out,10808718:doWrite,[(106,356)(106,349)])
Primary=[1322158,98,-210]
}
Add(LineBreak,11155099,70,490)
{
Caption="6.2"
link(Out,13368523:doWrite,[(106,496)(106,489)])
Primary=[2241107,98,-336]
}
Add(LineBreak,1840983,77,658)
{
Caption="6.3"
link(Out,14830999:doWrite,[(113,664)(113,657)])
Primary=[9384039,91,-490]
}
Add(GetDataEx,4812494,385,629)
{
Angle=1
link(Data,6162852:Text,[(452,634)])
}
Add(GetDataEx,10144277,385,461)
{
Angle=1
link(Data,3139609:Text,[(417,466)])
}
Add(Ini,10808718,126,336)
{
FileName="ini.ini"
Section="check"
Key="1s"
link(onResult,4653924:In,[])
link(Value,14572329:Var1,[(153,328)])
}
Add(GetDataEx,14572329,308,323)
{
link(Data,5811906:DateTime,[])
}
Add(GetDataEx,11332629,308,441)
{
link(Data,14572329:Var2,[])
}
Add(LineBreak,15675666,322,504)
{
Caption="7.1"
link(Out,8664562:doWork3,[(368,510)])
Primary=[16087620,-154,-280]
}
Add(LineBreak,4269881,322,672)
{
Caption="7.2"
link(Out,10163672:doWork3,[(368,678)])
Primary=[7078541,-154,-434]
}
Add(Ini,5976297,126,525)
{
FileName="ini.ini"
Section="check"
Key="4s"
link(onResult,16339374:In,[])
link(Value,10520813:DateTime,[(153,517)(538,517)])
}
Add(LineBreak,8323983,70,525)
{
Caption="8.1"
link(Out,5976297:doRead,[])
Primary=[10636540,98,-427]
}
Add(LineBreak,13728234,70,539)
{
Caption="9.1"
link(Out,5976297:doWrite,[(113,545)(113,538)])
Primary=[9385840,98,-357]
}
Add(LineBreak,971129,462,490)
{
Caption="10.1"
link(Out,15113029:doWork3,[(515,496)])
Primary=[16339374,-287,35]
}
Add(LineBreak,8550321,77,693)
{
Caption="11.1"
link(Out,3516633:doRead,[])
Primary=[4164917,91,-581]
}
Add(HubEx,15113029,511,476)
{
link(onEvent,10520813:doSetDate,[])
}
Add(Ini,3516633,126,693)
{
FileName="ini.ini"
Section="check"
Key="5s"
link(onResult,1034779:In,[])
link(Value,3218623:DateTime,[(153,685)(538,685)])
}
Add(LineBreak,11531244,77,707)
{
Caption="12.1"
link(Out,3516633:doWrite,[(119,713)(119,706)])
Primary=[7178052,91,-511]
}
Add(LineBreak,12524410,469,658)
{
Caption="13.1"
link(Out,10497689:doWork3,[(515,664)])
Primary=[1034779,-294,35]
}
Add(HubEx,10497689,511,644)
{
link(onEvent,3218623:doSetDate,[])
}
подскажите как ini объеденить или вынести? а то слишком громоздкий код получился.
Поиск
Друзья
Администрация