Вверх ↑
Ответов: 3889
Рейтинг: 362
#1: 2011-08-05 13:36:11 ЛС | профиль | цитата
Если лидирующий пробел всех устраивает (выше уже встречался), то присоединюсь к веселью) 4 элемента не считая интерфейса (двух полей ввода и самого окна программы)

Add(MainForm,14877883,273,154)
{
Width=275
Height=169
Position=1
link(onCreate,13917417:doText,[])
}
Add(Edit,13917417,343,168)
{
Left=5
Top=5
Width=255
Align=2
Text="AGFB2323442NFU3"
Point(onChar)
link(onChange,1671279:doLength,[])
link(Str,15033742:Var2,[])
link(onChar,7409094:doClear,[(395,188)(395,224)(564,224)(564,181)])
}
Add(Length,1671279,420,168)
{
link(onLength,13945066:doFor,[])
}
Add(For,13945066,469,168)
{
Start=1
Step=6
link(onEvent,7764826:doCopy,[])
link(onStop,2228631:doText,[(511,181)(511,244)])
link(End,1671279:Result,[(482,156)(461,156)(461,213)(426,213)])
}
Add(Copy,7764826,518,168)
{
Count=6
link(onCopy,7409094:doStrCatDlm,[])
link(Str,15033742:Var3,[(524,149)])
}
Add(StrCatDelim,7409094,581,168)
{
Delimiter=" "
Point(doClear)
link(Str1,12470339:Var3,[(587,156)(625,156)(625,210)])
}
Add(Edit,2228631,581,238)
{
Left=5
Top=5
Width=255
Align=2
Text="AGFB2323442NFU3"
link(Str,12470339:Var2,[])
}
Add(GetDataEx,15033742,343,144)
{
Angle=3
link(Data,13917417:Text,[(334,149)(334,214)(349,214)])
}
Add(GetDataEx,12470339,581,205)
{
link(Data,7409094:Result,[])
}
карма: 1

0