Вверх ↑
Ответов: 263
Рейтинг: 18
#1: 2020-02-11 16:04:21 ЛС | профиль | цитата
Dad2016 писал(а):
Единственнное мне нужно задавать количество символов в строках (примерно 70 символов) пределы (+/- 5 символов).

вот такой вариант посмотри

Add(MainForm,3224884,112,70)
{
Width=536
Height=227
}
Add(Memo,12539502,245,63)
{
Width=520
Align=2
Strings=#185:Требованиям к составу и порядку ведения исполнительной документации при строительстве, реконструкции, капитальном ремонте объектов капитального строительства и требования, предъявляемые|
}
Add(Edit,4910093,777,203)
{
Top=80
Width=520
Align=2
Text=""
}
Add(Edit,13865190,777,245)
{
Top=100
Width=520
Align=2
Text=""
}
Add(Edit,388078,777,287)
{
Top=120
Width=520
Align=2
Text=""
}
Add(Button,11722497,112,266)
{
Left=15
Top=150
Width=80
Caption="Разделить"
link(onClick,13809096:doEvent1,[])
}
Add(Hub,13809096,161,266)
{
OutCount=6
link(onEvent1,3979747:doEvent1,[(314,272)(314,153)])
link(onEvent2,14810360:doReset,[(560,279)(560,153)])
link(onEvent3,4910093:doText2,[(646,286)(646,216)])
link(onEvent4,13865190:doText2,[(657,293)(657,258)])
link(onEvent5,388078:doText2,[])
link(onEvent6,7242020:doEnum,[(221,307)(221,146)])
}
Add(Str_Enum,7242020,245,140)
{
Delimiter=" "
link(onEnum,860327:doStrCatDlm,[])
link(onEndEnum,870129:doWork3,[(297,153)(297,188)(543,188)])
link(String,12539502:Text,[])
}
Add(CounterEx,14810360,574,140)
{
Min=-1
Point(doReset)
link(onNext,725593:doEvent1,[])
}
Add(If_else,10378652,497,140)
{
Type=4
Op2=Integer(0)
link(onTrue,870129:doWork2,[])
link(Op2,10179948:Text,[])
}
Add(Length,14512184,441,140)
{
link(onLength,10378652:doCompare,[])
}
Add(IndexToChanel,981044,658,140)
{
Count=3
Point(Data)
link(onEvent1,4910093:doText,[(739,146)(739,209)])
link(onEvent2,13865190:doText,[(726,153)(726,251)])
link(onEvent3,388078:doText,[(712,160)(712,293)])
link(Data,399328:Var3,[(664,128)])
}
Add(Hub,725593,623,140)
{
link(onEvent1,981044:doEvent,[])
link(onEvent2,3979747:doEvent2,[(648,153)(648,197)(331,197)(331,160)])
}
Add(Hub,3979747,343,147)
{
InCount=2
OutCount=1
link(onEvent1,860327:doClear,[])
}
Add(StrCatDelim,860327,385,140)
{
Delimiter=" "
Point(doClear)
link(onStrCatDlm,14512184:doLength,[])
link(Str1,399328:Var2,[])
}
Add(GetDataEx,399328,385,123)
{
Angle=3
link(Data,860327:Result,[(379,128)(379,184)(391,184)])
}
Add(HubEx,870129,539,140)
{
link(onEvent,14810360:doNext,[])
}
Add(Label,9095437,441,63)
{
Left=115
Top=156
Width=90
Height=17
Caption="Длина строки >="
}
Add(Edit,10179948,504,64)
{
Left=205
Top=151
Width=30
Text="70"
DataType=1
}
Add(Label,9464940,560,63)
{
Left=238
Top=155
Width=54
Height=17
Caption="символов"
}
карма: 3

0