Вот доделал почти, но еще появилась одна проблема.... При генераци текста выводится строка, нормально добавляется в список одна за другой, но после повторной генерации буфер передачи не очищается и получается первая генираци + первая и вторая + первая, вторая и третя... и тд... Посмотрите пожалуста что там надо изменить..?? Add(Memo,3201944,184,7){
Left=3
Top=8
Width=95
Height=185
Strings=#3:000|3:111|3:222|3:333|3:444|
}
Add(Button,6935261,65,119)
{
Left=633
Top=343
Width=200
Height=25
link(onClick,3305848:doEvent1,[])
}
Add(ArrayRW,3254445,226,112)
{
link(onRead,10996584:doStrCat,[])
link(Array,3201944:Array,[(232,61)(204,61)])
}
Add(Random,12598644,184,112)
{
Max=0
Point(Max)
Point(doMax)
link(onRandom,3254445:doRead,[])
link(Max,2578546:Result,[])
}
Add(Hub,3305848,128,119)
{
OutCount=25
link(onEvent1,2578546:doOperation,[(154,125)(154,76)])
link(onEvent2,12598644:doMax,[])
link(onEvent3,12598644:doRandom,[(163,139)(163,118)])
link(onEvent4,5204210:doOperation,[(163,146)(163,230)])
link(onEvent5,6993348:doMax,[(163,153)(163,286)])
link(onEvent6,6993348:doRandom,[(163,160)(163,272)])
link(onEvent7,2145527:doOperation,[(310,167)(310,76)])
link(onEvent8,15393011:doRandom,[(310,174)(310,118)])
link(onEvent9,15393011:doMax,[(310,181)(310,132)])
link(onEvent10,16177063:doOperation,[(310,188)(310,230)])
link(onEvent11,4208804:doRandom,[(310,195)(310,272)])
link(onEvent12,4208804:doMax,[(352,202)(352,286)])
link(onEvent13,11339494:doOperation,[(222,209)(222,412)])
link(onEvent14,3106843:doRandom,[(222,216)(222,454)])
link(onEvent15,3106843:doMax,[(222,223)(222,468)])
link(onEvent16,12136839:doOperation,[(370,230)(370,398)])
link(onEvent17,11457458:doRandom,[(370,237)(370,447)])
link(onEvent18,11457458:doMax,[(412,244)(412,461)])
link(onEvent19,1356874:doStrCat,[(240,251)(240,503)])
link(onEvent20,2922681:doEnum,[(275,258)(275,627)])
}
Add(Memo,1787328,184,308)
{
Left=103
Top=8
Width=100
Height=185
Strings=#3:aaa|3:aaa|3:aaa|3:aaa|3:aaa|
}
Add(Memo,15311415,317,301)
{
Left=3
Top=198
Width=200
Height=135
}
Add(ArrayRW,16674526,226,266)
{
link(onRead,15716109:doStrCat,[])
link(Array,1787328:Array,[(232,254)(218,254)(218,365)(204,365)])
}
Add(Random,6993348,184,266)
{
Max=0
Point(Max)
Point(doMax)
link(onRandom,16674526:doRead,[])
link(Max,5204210:Result,[])
}
Add(Math,5204210,184,224)
{
OpType=1
Op2=1
link(Op1,1787328:Count,[(190,212)(194,212)(194,365)(197,365)])
}
Add(Math,2578546,184,70)
{
OpType=1
Op2=1
link(Op1,3201944:Count,[(190,61)(197,61)])
}
Add(StrCat,10996584,275,112)
{
Str1=" "
}
Add(StrCat,15716109,268,266)
{
Str2=" "
link(onStrCat,15311415:doAdd,[(308,272)(308,307)])
link(Str2,10996584:Result,[])
}
Add(MainForm,2953706,65,42)
{
Width=873
Height=655
}
Add(Memo,4227475,478,7)
{
Left=280
Top=8
Width=95
Height=185
Strings=#3:000|3:111|3:222|3:333|3:444|
}
Add(ArrayRW,8084879,520,112)
{
link(onRead,5847772:doStrCat,[])
link(Array,4227475:Array,[(526,68)(498,68)])
}
Add(Random,15393011,478,112)
{
Max=0
Point(Max)
Point(doMax)
link(onRandom,8084879:doRead,[])
link(Max,2145527:Result,[])
}
Add(Memo,2426684,478,161)
{
Left=380
Top=8
Width=95
Height=185
Strings=#3:aaa|3:aaa|3:aaa|3:aaa|3:aaa|
}
Add(Memo,14162096,611,301)
{
Left=280
Top=198
Width=200
Height=135
}
Add(ArrayRW,2058888,520,266)
{
link(onRead,13504761:doStrCat,[])
link(Array,2426684:Array,[(526,221)(498,221)])
}
Add(Random,4208804,478,266)
{
Max=0
Point(Max)
Point(doMax)
link(onRandom,2058888:doRead,[])
link(Max,16177063:Result,[])
}
Add(Math,16177063,478,224)
{
OpType=1
Op2=1
link(Op1,2426684:Count,[(484,215)(491,215)])
}
Add(Math,2145527,478,70)
{
OpType=1
Op2=1
link(Op1,4227475:Count,[(484,61)(491,61)])
}
Add(StrCat,5847772,569,112)
{
Str1=" "
}
Add(StrCat,13504761,562,266)
{
Str2=" "
link(onStrCat,14162096:doAdd,[(602,272)(602,307)])
link(Str2,5847772:Result,[])
}
Add(ArrayRW,7531424,345,448)
{
link(onRead,4235984:doStrCat,[])
link(Array,15311415:Array,[(351,397)(337,397)])
}
Add(Random,3106843,303,448)
{
Max=0
Point(Max)
Point(doMax)
link(onRandom,7531424:doRead,[])
link(Max,11339494:Result,[])
}
Add(Math,11339494,303,406)
{
OpType=1
Op2=1
link(Op1,15311415:Count,[(309,376)(330,376)])
}
Add(StrCat,4235984,394,448)
{
Str1=" "
}
Add(ArrayRW,6424616,639,441)
{
link(onRead,6523751:doStrCat,[])
link(Array,14162096:Array,[(645,400)(631,400)])
}
Add(Random,11457458,597,441)
{
Max=0
Point(Max)
Point(doMax)
link(onRandom,6424616:doRead,[])
link(Max,12136839:Result,[(603,433)(596,433)])
}
Add(Math,12136839,590,392)
{
OpType=1
Op2=1
link(Op1,14162096:Count,[(596,383)(624,383)])
}
Add(StrCat,6523751,688,441)
{
Str1=" "
}
Add(StrCat,1356874,394,497)
{
Str1=" "
link(onStrCat,9142246:doAdd,[(438,503)(438,527)(312,527)(312,552)])
link(Str1,4235984:Result,[])
link(Str2,6523751:Result,[(407,492)(694,492)])
}
Add(StrList,9142246,324,546)
{
}
Add(ArrayEnum,2922681,310,621)
{
link(onItem,16307734:doString,[(403,627)(403,628)])
link(Array,9142246:Array,[(316,564)(344,564)])
}
Add(FormatStr,16307734,464,622)
{
link(onFString,4792197:doValue,[(500,628)(500,604)(454,604)(454,565)])
link(Str2,4792197:Value,[(477,606)(470,606)])
}
Add(Memory,4792197,464,559)
{
Default=String()
link(onData,11877055:doAdd,[(536,565)(536,615)])
}
Add(Memo,11877055,576,609)
{
Left=490
Top=5
Width=350
Height=320
}
Add(ODialog,13828755,429,6)
{
link(onExecute,4227475:doLoad,[(469,12)(469,41)])
}
Add(Button,16733339,380,6)
{
Left=290
Top=350
link(onClick,13828755:doExecute,[])
}
Add(ODialog,5445176,128,6)
{
link(onExecute,3201944:doLoad,[(172,12)(172,41)])
}
Add(Button,3961742,79,6)
{
Left=400
Top=350
link(onClick,5445176:doExecute,[])
}
Add(ODialog,4407440,429,160)
{
link(onExecute,2426684:doLoad,[(469,166)(469,195)])
}
Add(Button,7370045,380,160)
{
Left=25
Top=365
link(onClick,4407440:doExecute,[])
}
Add(ODialog,4918993,135,314)
{
link(onExecute,1787328:doLoad,[(175,320)(175,342)])
}
Add(Button,7190972,86,314)
{
Left=130
Top=365
link(onClick,4918993:doExecute,[])
}
Зарание благодарен!
|
Поиск
Друзья
Администрация