Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2016-04-12 06:10:10 ЛС | профиль | цитата
nesco писал(а):
Какая-то надуманная проблема

Ну а я вам про что говорил
Не вижу проблемы и без CountStr:

Add(MainForm,3400360,602,140)
{
Width=420
Height=96
Position=1
}
Add(SearchInFile,8757361,441,133)
{
Text="asm"
Point(onEnd)
Point(NumStr)
link(onNotSearch,246408:doWork1,[(522,139)])
link(onSearch,3121382:doEvent1,[])
link(FileName,15088486:Text,[(447,124)(356,124)(356,173)(321,173)])
}
Add(Button,1954846,154,126)
{
Left=355
Top=10
Width=25
TabOrder=-1
Caption="..."
link(onClick,14754006:doExecute,[])
}
Add(ODialog,14754006,217,126)
{
link(onExecute,10451628:doEvent1,[])
}
Add(ProgressBar,8986941,441,196)
{
Left=20
Top=35
Width=355
Height=12
Color=65535
ProgressColor=16711680
}
Add(Hub,3121382,490,140)
{
OutCount=3
link(onEvent1,421971:doData,[])
link(onEvent2,246408:doWork2,[])
}
Add(HubEx,246408,518,147)
{
Angle=1
link(onEvent,15856940:doLength,[(522,181)(305,181)(305,202)])
}
Add(Edit,15088486,315,133)
{
Left=20
Top=10
Width=330
link(onChange,13942964:doRead,[])
}
Add(MathParse,925374,392,196)
{
MathStr="%0 + (%1+2)/%2*100"
Point(doClear)
link(onResult,8986941:doPosition,[])
link(X2,13942964:FileSize,[])
AddHint(-46,49,114,13,MathStr)
}
Add(FileAttributes,13942964,378,133)
{
Point(FileSize)
link(onRead,8757361:doSearch,[])
}
Add(Length,15856940,315,196)
{
link(onLength,925374:doCalc,[])
}
Add(Hub,10451628,266,126)
{
link(onEvent1,925374:doClear,[(291,132)(291,209)])
link(onEvent2,15088486:doText,[])
}
Add(DoData,421971,546,140)
{
link(onEventData,3400360:doCaption,[])
link(Data,8757361:NumStr,[(552,131)(531,131)(531,173)(447,173)])
}
Чего вы два дня воду в ступе толчете -- не пойму

карма: 9

0